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_local_eval): Use scm_i_eval and scm_i_eval_x.

Browse source 
(scm_start_stack): Use scm_i_eval.
This commit is contained in:
Mikael Djurfeldt 2000-08-11 08:42:42 +00:00
parent 1807c7b875
commit 82b3290db7
1 changed files with 4 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

8
libguile/debug.c
View file

@ -486,10 +486,10 @@ SCM_DEFINE (scm_local_eval, "local-eval", 1, 1, 0,
{ {
if (SCM_UNBNDP (env)) if (SCM_UNBNDP (env))
{ {
SCM_VALIDATE_MEMOIZED (1,exp); SCM_VALIDATE_MEMOIZED (1, exp);
return scm_eval_3 (SCM_MEMOIZED_EXP (exp), 0, SCM_MEMOIZED_ENV (exp)); return scm_i_eval_x (SCM_MEMOIZED_EXP (exp), SCM_MEMOIZED_ENV (exp));
} }
return scm_eval_3 (exp, 1, env); return scm_i_eval (exp, env);
} }
#undef FUNC_NAME #undef FUNC_NAME
@ -530,7 +530,7 @@ scm_start_stack (SCM id, SCM exp, SCM env)
vframe.vect = &vframe_vect_body; vframe.vect = &vframe_vect_body;
vframe.vect[0].id = id; vframe.vect[0].id = id;
scm_last_debug_frame = &vframe; scm_last_debug_frame = &vframe;
answer = scm_eval_3 (exp, 1, env); answer = scm_i_eval (exp, env);
scm_last_debug_frame = vframe.prev; scm_last_debug_frame = vframe.prev;
return answer; return answer;
} }