summaryrefslogtreecommitdiff
path: root/libguile/error.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>2001-09-20 08:18:26 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>2001-09-20 08:18:26 +0000
commita7f54aed6a1edebd85521d9624d958141b87a1b7 (patch)
treecc5febb6252d60a16289f201f10d2f5029f7fd09 /libguile/error.c
parent147c18a0e4d196eb770a648b4cf1bf11a5ef7043 (diff)
downloadguile-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.c14
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)
{