diff options
author | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-05-04 11:31:45 +0000 |
---|---|---|
committer | Mikael Djurfeldt <djurfeldt@nada.kth.se> | 1998-05-04 11:31:45 +0000 |
commit | 65e417214cb855b07e7b684f33d51566be8aba06 (patch) | |
tree | 768cca7c961876c838e6aefbc736de068ba14597 | |
parent | c716d9fcf2c9a10d7d24fa141358f6e49a16eaab (diff) | |
download | guile-65e417214cb855b07e7b684f33d51566be8aba06.tar.gz |
* eval.c (SCM_CEVAL): Moved scm_tc7_contin case above
scm_tcs_cons_gloc case in zero args switch; Fixed args
construction for operators in scm_tcs_cons_gloc case in two args
switch.
-rw-r--r-- | libguile/eval.c | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/libguile/eval.c b/libguile/eval.c index e571e7889..55eda7a3d 100644 --- a/libguile/eval.c +++ b/libguile/eval.c @@ -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; |