mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-01 20:30:28 +02:00
Code Activity

* eval.c (scm_m_lambda): Let bodycheck check the body of the

Browse source 
lambda.  Let your sins be purified by the blood of the lambda.
(Thanks to Eric Hanchrow.)
This commit is contained in:
Jim Blandy 1999-07-19 08:45:54 +00:00
parent a122f2f9ea
commit ae904cfae3
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
libguile/eval.c
View file

@ -653,7 +653,7 @@ scm_m_lambda (xorig, env)
SCM env; SCM env;
{ {
SCM proc, x = SCM_CDR (xorig); SCM proc, x = SCM_CDR (xorig);
if (scm_ilength (x) < 2) if (scm_ilength (x) < 1)
goto badforms; goto badforms;
proc = SCM_CAR (x); proc = SCM_CAR (x);
if (SCM_NULLP (proc)) if (SCM_NULLP (proc))