diff options
| author | Gary Houston <ghouston@arglist.com> | 1996-10-27 02:38:39 +0000 |
|---|---|---|
| committer | Gary Houston <ghouston@arglist.com> | 1996-10-27 02:38:39 +0000 |
| commit | 523f52665864ee9a07d3b74e4d5f4374b21aee41 (patch) | |
| tree | fcb0cd1cacd486d22f3a57f9a9debb4f862a6153 /libguile/error.h | |
| parent | 3065a62a4c3e44ec424cfa0f13f74479d07bf83f (diff) | |
| download | guile-523f52665864ee9a07d3b74e4d5f4374b21aee41.tar.gz | |
* load.c: change s_try_load and s_try_load_path to s_primitive_load
and s_primitive_load_path.
* eval.c, load.c, error.c (scm_wta): use scm_misc_error.
* error.h: don't declare error symbols. prototype for scm_misc_error.
* stackchk.c (scm_stack_overflow_key): defined here instead of in
error.c.
* error.c: use SCM_SYMBOL to set up error keys.
scm_misc_error: new procedure.
Diffstat (limited to 'libguile/error.h')
| -rw-r--r-- | libguile/error.h | 10 |
1 files changed, 1 insertions, 9 deletions
diff --git a/libguile/error.h b/libguile/error.h index 68ddfcdad..385497e8f 100644 --- a/libguile/error.h +++ b/libguile/error.h @@ -48,15 +48,6 @@ extern int scm_ints_disabled; -extern SCM scm_system_error_key; -extern SCM scm_num_overflow_key; -extern SCM scm_out_of_range_key; -extern SCM scm_arg_type_key; -extern SCM scm_args_number_key; -extern SCM scm_memory_alloc_key; -extern SCM scm_stack_overflow_key; -extern SCM scm_misc_error_key; - extern SCM scm_errno SCM_P ((SCM arg)); @@ -73,6 +64,7 @@ extern void scm_out_of_range SCM_P ((char *subr, SCM bad_value)); extern void scm_wrong_num_args SCM_P ((SCM proc)); extern void scm_wrong_type_arg SCM_P ((char *subr, int pos, SCM bad_value)); extern void scm_memory_error SCM_P ((char *subr)); +extern void scm_misc_error SCM_P ((char *subr, char *message, SCM args)); extern SCM scm_wta SCM_P ((SCM arg, char *pos, char *s_subr)); extern void scm_init_error SCM_P ((void)); |