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_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))
{
SCM_VALIDATE_MEMOIZED (1,exp);
return scm_eval_3 (SCM_MEMOIZED_EXP (exp), 0, SCM_MEMOIZED_ENV (exp));
SCM_VALIDATE_MEMOIZED (1, 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
@ -530,7 +530,7 @@ scm_start_stack (SCM id, SCM exp, SCM env)
vframe.vect = &vframe_vect_body;
vframe.vect[0].id = id;
scm_last_debug_frame = &vframe;
answer = scm_eval_3 (exp, 1, env);
answer = scm_i_eval (exp, env);
scm_last_debug_frame = vframe.prev;
return answer;
}