[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
guile/guile-core/libguile eval.c
From: |
Marius Vollmer |
Subject: |
guile/guile-core/libguile eval.c |
Date: |
Sat, 03 Nov 2001 13:45:33 -0500 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/11/03 13:45:33
Modified files:
guile-core/libguile: eval.c
Log message:
(scm_m_begin): Allow `(begin)`, with no subforms.
(SCM_CEVAL): Evaluate an empty `begin' to SCM_UNSPECIFIED.
CVSWeb URLs:
http://savannah.gnu.org/cgi-bin/viewcvs/guile/guile-core/libguile/eval.c.diff?cvsroot=OldCVS&tr1=1.243&tr2=1.244&r1=text&r2=text
Patches:
Index: guile/guile-core/libguile/eval.c
diff -u guile/guile-core/libguile/eval.c:1.243
guile/guile-core/libguile/eval.c:1.244
--- guile/guile-core/libguile/eval.c:1.243 Thu Oct 18 17:38:04 2001
+++ guile/guile-core/libguile/eval.c Sat Nov 3 13:45:33 2001
@@ -528,7 +528,7 @@
SCM
scm_m_begin (SCM xorig, SCM env SCM_UNUSED)
{
- SCM_ASSYNT (scm_ilength (SCM_CDR (xorig)) >= 1, scm_s_expression, s_begin);
+ SCM_ASSYNT (scm_ilength (SCM_CDR (xorig)) >= 0, scm_s_expression, s_begin);
return scm_cons (SCM_IM_BEGIN, SCM_CDR (xorig));
}
@@ -1961,6 +1961,9 @@
goto carloop;
case SCM_BIT8(SCM_IM_BEGIN):
+ if (SCM_NULLP (SCM_CDR (x)))
+ RETURN (SCM_UNSPECIFIED);
+
/* (currently unused)
cdrxnoap: */
PREP_APPLY (SCM_UNDEFINED, SCM_EOL);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- guile/guile-core/libguile eval.c,
Marius Vollmer <=