/[guile]/guile/guile-core/libguile/eval.c
ViewVC logotype

Diff of /guile/guile-core/libguile/eval.c

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.285 by mdj, Thu Jan 23 16:04:37 2003 UTC revision 1.286 by mdj, Mon Feb 10 12:39:11 2003 UTC
# Line 3848  scm_trampoline_0 (SCM proc) Line 3848  scm_trampoline_0 (SCM proc)
3848      case scm_tcs_closures:      case scm_tcs_closures:
3849        {        {
3850          SCM formals = SCM_CLOSURE_FORMALS (proc);          SCM formals = SCM_CLOSURE_FORMALS (proc);
3851          if (SCM_NULLP (formals) || SCM_SYMBOLP (formals))          if (SCM_NULLP (formals) || !SCM_CONSP (formals))
3852            return scm_i_call_closure_0;            return scm_i_call_closure_0;
3853          else          else
3854            return 0;            return 0;
# Line 3961  scm_trampoline_1 (SCM proc) Line 3961  scm_trampoline_1 (SCM proc)
3961      case scm_tcs_closures:      case scm_tcs_closures:
3962        {        {
3963          SCM formals = SCM_CLOSURE_FORMALS (proc);          SCM formals = SCM_CLOSURE_FORMALS (proc);
3964          if ((SCM_CONSP (formals) && SCM_NULLP (SCM_CDR (formals)))          if (!SCM_NULLP (formals)
3965              || SCM_SYMBOLP (formals))              && (!SCM_CONSP (formals) || !SCM_CONSP (SCM_CDR (formals))))
3966            return call_closure_1;            return call_closure_1;
3967          else          else
3968            return 0;            return 0;
# Line 4037  scm_trampoline_2 (SCM proc) Line 4037  scm_trampoline_2 (SCM proc)
4037      case scm_tcs_closures:      case scm_tcs_closures:
4038        {        {
4039          SCM formals = SCM_CLOSURE_FORMALS (proc);          SCM formals = SCM_CLOSURE_FORMALS (proc);
4040          if (!SCM_CONSP (formals)          if (!SCM_NULLP (formals)
4041              || (SCM_CONSP (SCM_CDR (formals))              && (!SCM_CONSP (formals)
4042                  && SCM_NULLP (SCM_CDDR (formals))))                  || (!SCM_NULLP (SCM_CDR (formals))
4043                        && (!SCM_CONSP (SCM_CDR (formals))
4044                            || !SCM_CONSP (SCM_CDDR (formals))))))
4045            return call_closure_2;            return call_closure_2;
4046          else          else
4047            return 0;            return 0;

Legend:
Removed from v.1.285  
changed lines
  Added in v.1.286

savannah-hackers-public@gnu.org
ViewVC Help
Powered by ViewVC 1.1.26