guile/guile-core/libguile eval.c

[Marius Vollmer]

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);