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

(scm_m_begin): Allow (begin), with no subforms.

Browse source 
(SCM_CEVAL): Evaluate an empty `begin' to SCM_UNSPECIFIED.
This commit is contained in:
Marius Vollmer 2001-11-03 18:45:33 +00:00
parent 7663c008a5
commit b8113bc8dc
1 changed files with 4 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

5
libguile/eval.c
View file

@ -528,7 +528,7 @@ SCM_GLOBAL_SYMBOL (scm_sym_begin, s_begin);
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 @@ dispatch:
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);