summaryrefslogtreecommitdiff
path: root/libguile/root.c
diff options
context:
space:
mode:
authorMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-23 01:21:07 +0000
committerMikael Djurfeldt <djurfeldt@nada.kth.se>1996-08-23 01:21:07 +0000
commitfaa6b3dfb69adf0eb18158c2c8f9f9495c214381 (patch)
tree0388d872bcc4339b3ef7799ac74af96297a8ce0c /libguile/root.c
parent39f1ef511c5263c36cd82d18b834ce6b54022046 (diff)
downloadguile-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.c6
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;