diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-23 01:21:07 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1996-08-23 01:21:07 +0000 |
commit | faa6b3dfb69adf0eb18158c2c8f9f9495c214381 (patch) | |
tree | 0388d872bcc4339b3ef7799ac74af96297a8ce0c /libguile/root.c | |
parent | 39f1ef511c5263c36cd82d18b834ce6b54022046 (diff) | |
download | guile-faa6b3dfb69adf0eb18158c2c8f9f9495c214381.tar.gz |
* gscm.c, init.c, root.c, throw.c: Bug fixes:
last_debug_info_frame is now updated in all cases.
Diffstat (limited to 'libguile/root.c')
-rw-r--r-- | libguile/root.c | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/libguile/root.c b/libguile/root.c index 9db2e9b18..8b3a63a1e 100644 --- a/libguile/root.c +++ b/libguile/root.c @@ -81,7 +81,13 @@ scm_call_catching_errors (thunk, err_filter, closure) { SCM answer; setjmp_type i; +#ifdef DEBUG_EXTENSIONS + SCM_DFRAME (scm_rootcont) = last_debug_info_frame; +#endif i = setjmp (SCM_JMPBUF (scm_rootcont)); +#ifdef STACK_CHECKING + scm_stack_checking_enabled_p = SCM_STACK_CHECKING_P; +#endif if (!i) { scm_gc_heap_lock = 0; |