[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: |
Thu, 29 Mar 2001 14:38:00 -0800 |
CVSROOT: /cvs
Module name: guile
Changes by: Marius Vollmer <address@hidden> 01/03/29 14:38:00
Modified files:
guile-core/libguile: eval.c
Log message:
* eval.c (SCM_APPLY): Check that arg1 is bound for scm_tc7_cxr.
CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/eval.c.diff?r1=1.212&r2=1.213
Patches:
Index: guile/guile-core/libguile/eval.c
diff -u guile/guile-core/libguile/eval.c:1.212
guile/guile-core/libguile/eval.c:1.213
--- guile/guile-core/libguile/eval.c:1.212 Mon Mar 26 14:39:35 2001
+++ guile/guile-core/libguile/eval.c Thu Mar 29 14:38:00 2001
@@ -3399,7 +3399,7 @@
SCM_ASRTGO (SCM_NULLP (args), wrongnumargs);
RETURN (SCM_SUBRF (proc) (arg1))
case scm_tc7_cxr:
- SCM_ASRTGO (SCM_NULLP (args), wrongnumargs);
+ SCM_ASRTGO (!SCM_UNBNDP (arg1) && SCM_NULLP (args), wrongnumargs);
if (SCM_SUBRF (proc))
{
if (SCM_INUMP (arg1))