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

* debug.c (scm_start_stack): Copy source when evaluating. (If we

Browse source 
don't, we may end up passing memoized source to a transformer.)
This commit is contained in:
Mikael Djurfeldt 1998-11-10 14:16:55 +00:00
parent 26e1985495
commit cb412265a7
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

@ -543,7 +543,7 @@ scm_start_stack (id, exp, env)
vframe.vect = &vframe_vect_body;
vframe.vect[0].id = id;
scm_last_debug_frame = &vframe;
answer = scm_eval_3 (exp, 0, env);
answer = scm_eval_3 (exp, 1, env);
scm_last_debug_frame = vframe.prev;
return answer;
}