mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 20:00:19 +02:00
Code Activity

* debug.c (scm_single_step): Bugfix: Call continuation with

Browse source 
scm_call_continuation instead of throwing to it.
This commit is contained in:
Mikael Djurfeldt 1997-03-04 18:54:14 +00:00
parent f4da31819e
commit 2c4bd736ca
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/debug.c
View file

@ -116,7 +116,7 @@ scm_single_step (cont, val)
SCM_ENTER_FRAME_P = SCM_EXIT_FRAME_P = 1; SCM_ENTER_FRAME_P = SCM_EXIT_FRAME_P = 1;
SCM_RESET_DEBUG_MODE; SCM_RESET_DEBUG_MODE;
SCM_ALLOW_INTS; SCM_ALLOW_INTS;
scm_throw (cont, val); scm_call_continuation (cont, val);
return SCM_BOOL_F; /* never returns */ return SCM_BOOL_F; /* never returns */
} }