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/stackchk.c | |
parent | 3065a62a4c3e44ec424cfa0f13f74479d07bf83f (diff) |
* 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/stackchk.c')
-rw-r--r-- | libguile/stackchk.c | 2 |
1 files changed, 2 insertions, 0 deletions
diff --git a/libguile/stackchk.c b/libguile/stackchk.c index c01eecbec..92846170f 100644 --- a/libguile/stackchk.c +++ b/libguile/stackchk.c @@ -53,6 +53,8 @@ #ifdef STACK_CHECKING int scm_stack_checking_enabled_p; +SCM_SYMBOL (scm_stack_overflow_key, "stack-overflow"); + void scm_report_stack_overflow () { |