gentoo-overlay/sci-libs/gaul-devel/files/gaul-devel-0.1849-slang2-error.patch

diff -Naur gaul-devel-0.1849-0/tests/test_slang.c gaul-devel-0.1849-0.new/tests/test_slang.c
--- gaul-devel-0.1849-0/tests/test_slang.c	2003-08-19 17:41:20.000000000 -0400
+++ gaul-devel-0.1849-0.new/tests/test_slang.c	2008-02-09 10:42:43.000000000 -0500
@@ -287,10 +287,11 @@
  */
   if (-1 == SLang_load_file(script_fname))
     {
+    int error = SLang_get_error();
     dief("Error %d interpreting the S-Lang script \"%s\".",
-         SLang_Error, script_fname);
+         error, script_fname);
     SLang_restart(1);	/* reset interpreter. */
-    SLang_Error = 0;
+    SLang_set_error(0);
     return FALSE;
     }
 
@@ -315,9 +316,10 @@
  */
   if (-1 == SLang_load_file(NULL))
     {
-    dief("Error %d interpreting the SLang script from stdin.", SLang_Error);
+    int error = SLang_get_error();
+    dief("Error %d interpreting the SLang script from stdin.", error);
     SLang_restart(1);
-    SLang_Error = 0;
+    SLang_set_error(0);
     return FALSE;
     }