mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-10 05:50:26 +02:00
Code Activity

* eval.c (SCM_CEVAL): Moved scm_tc7_contin case above

Browse source 
scm_tcs_cons_gloc case in zero args switch; Fixed args
construction for operators in scm_tcs_cons_gloc case in two args
switch.
This commit is contained in:
Mikael Djurfeldt 1998-05-04 11:31:45 +00:00
parent c716d9fcf2
commit 65e417214c
1 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

6
libguile/eval.c
View file

@ -2351,6 +2351,8 @@ evapply:
env = EXTEND_ENV (SCM_CAR (x), scm_cons (t.arg1, SCM_EOL), SCM_ENV (proc));
#endif
goto cdrxbegin;
case scm_tc7_contin:
scm_call_continuation (proc, t.arg1);
case scm_tcs_cons_gloc:
if (SCM_I_OPERATORP (proc))
{
@ -2376,8 +2378,6 @@ evapply:
}
/* Fall through. */
}
case scm_tc7_contin:
scm_call_continuation (proc, t.arg1);
case scm_tc7_subr_2:
case scm_tc7_subr_0:
case scm_tc7_subr_3:
@ -2472,7 +2472,7 @@ evapply:
#endif
env = EXTEND_ENV (SCM_CAR (SCM_CODE (x)),
scm_cons2 (proc, t.arg1,
scm_cons (arg2, env)),
scm_cons (arg2, SCM_EOL)),
SCM_ENV (x));
x = SCM_CODE (x);
goto cdrxbegin;