diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-09-20 08:18:26 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 2001-09-20 08:18:26 +0000 |
commit | a7f54aed6a1edebd85521d9624d958141b87a1b7 (patch) | |
tree | cc5febb6252d60a16289f201f10d2f5029f7fd09 /libguile/error.c | |
parent | 147c18a0e4d196eb770a648b4cf1bf11a5ef7043 (diff) | |
download | guile-a7f54aed6a1edebd85521d9624d958141b87a1b7.tar.gz |
* error.c, error.h: Made error keys globally accessible.
Applications might want to test for these or use them in a direct
call to scm_error.
Diffstat (limited to 'libguile/error.c')
-rw-r--r-- | libguile/error.c | 14 |
1 files changed, 7 insertions, 7 deletions
diff --git a/libguile/error.c b/libguile/error.c index 33665a0f8..fd9b2a0d9 100644 --- a/libguile/error.c +++ b/libguile/error.c @@ -162,7 +162,7 @@ SCM_DEFINE (scm_strerror, "strerror", 1, 0, 0, } #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_syserror_msg (const char *subr, const char *message, SCM args, int eno) 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_num_overflow (const char *subr) 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_out_of_range_pos (const char *subr, SCM bad_value, SCM pos) } -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_error_num_args_subr (const char *subr) } -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_wrong_type_arg_msg (const char *subr, int pos, SCM bad_value, const char *sz } -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_memory_error (const char *subr) 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) { |