guile/guile-core/libguile error.c

[Thien-Thi Nguyen]

CVSROOT:        /cvs
Module name:    guile
Branch:         branch_release-1-6
Changes by:     Thien-Thi Nguyen <address@hidden>       01/10/04 16:59:15

Modified files:
        guile-core/libguile: error.c 

Log message:
        (scm_wta): Replace `intptr_t' use w/ `scm_t_bits'.
        Thanks to I. N. Golubev.

CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/error.c.diff?cvsroot=OldCVS&only_with_tag=branch_release-1-6&tr1=1.63.2.3&tr2=1.63.2.4&r1=text&r2=text

Patches:
Index: guile/guile-core/libguile/error.c
diff -u guile/guile-core/libguile/error.c:1.65 
guile/guile-core/libguile/error.c:1.66
--- guile/guile-core/libguile/error.c:1.65      Fri Aug 31 10:42:31 2001
+++ guile/guile-core/libguile/error.c   Thu Sep 20 04:18:26 2001
@@ -162,7 +162,7 @@
 }
 #undef FUNC_NAME
 
-SCM_SYMBOL (scm_system_error_key, "system-error");
+SCM_GLOBAL_SYMBOL (scm_system_error_key, "system-error");
 void
 scm_syserror (const char *subr)
 {
@@ -185,7 +185,7 @@
             scm_cons (SCM_MAKINUM (eno), SCM_EOL));
 }
 
-SCM_SYMBOL (scm_num_overflow_key, "numerical-overflow");
+SCM_GLOBAL_SYMBOL (scm_num_overflow_key, "numerical-overflow");
 void
 scm_num_overflow (const char *subr)
 {
@@ -196,7 +196,7 @@
             SCM_BOOL_F);
 }
 
-SCM_SYMBOL (scm_out_of_range_key, "out-of-range");
+SCM_GLOBAL_SYMBOL (scm_out_of_range_key, "out-of-range");
 void
 scm_out_of_range (const char *subr, SCM bad_value)
 {
@@ -218,7 +218,7 @@
 }
 
 
-SCM_SYMBOL (scm_args_number_key, "wrong-number-of-args");
+SCM_GLOBAL_SYMBOL (scm_args_number_key, "wrong-number-of-args");
 void
 scm_wrong_num_args (SCM proc)
 {
@@ -241,7 +241,7 @@
 }
 
 
-SCM_SYMBOL (scm_arg_type_key, "wrong-type-arg");
+SCM_GLOBAL_SYMBOL (scm_arg_type_key, "wrong-type-arg");
 void
 scm_wrong_type_arg (const char *subr, int pos, SCM bad_value)
 {
@@ -273,7 +273,7 @@
 }
 
 
-SCM_SYMBOL (scm_memory_alloc_key, "memory-allocation-error");
+SCM_GLOBAL_SYMBOL (scm_memory_alloc_key, "memory-allocation-error");
 void
 scm_memory_error (const char *subr)
 {
@@ -284,7 +284,7 @@
             SCM_BOOL_F);
 }
 
-SCM_SYMBOL (scm_misc_error_key, "misc-error");
+SCM_GLOBAL_SYMBOL (scm_misc_error_key, "misc-error");
 void
 scm_misc_error (const char *subr, const char *message, SCM args)
 {