guile/guile-core/libguile ChangeLog eval.c

[Mikael Djurfeldt]

CVSROOT:        /cvs
Module name:    guile
Changes by:     Mikael Djurfeldt <address@hidden>       01/01/29 10:23:34

Modified files:
        guile-core/libguile: ChangeLog eval.c 

Log message:
        * eval.c (SCM_APPLY): Check that primitives which take 1 arg
        really get that arg.

CVSWeb URLs:
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/ChangeLog.diff?r1=1.1253&r2=1.1254
http://subversions.gnu.org/cgi-bin/cvsweb/guile/guile-core/libguile/eval.c.diff?r1=1.191&r2=1.192

Patches:
Index: guile/guile-core/libguile/ChangeLog
diff -u guile/guile-core/libguile/ChangeLog:1.1253 
guile/guile-core/libguile/ChangeLog:1.1254
--- guile/guile-core/libguile/ChangeLog:1.1253  Fri Jan 26 16:13:55 2001
+++ guile/guile-core/libguile/ChangeLog Mon Jan 29 10:23:34 2001
@@ -1,3 +1,8 @@
+2001-01-29  Mikael Djurfeldt  <address@hidden>
+
+       * eval.c (SCM_APPLY): Check that primitives which take 1 arg
+       really get that arg.
+
 2001-01-26  Keisuke Nishida  <address@hidden>
 
        * goops.c (s_scm_get_keyword): Bug fix.
Index: guile/guile-core/libguile/eval.c
diff -u guile/guile-core/libguile/eval.c:1.191 
guile/guile-core/libguile/eval.c:1.192
--- guile/guile-core/libguile/eval.c:1.191      Tue Jan 23 17:26:44 2001
+++ guile/guile-core/libguile/eval.c    Mon Jan 29 10:23:34 2001
@@ -3302,6 +3302,7 @@
       SCM_ASRTGO (SCM_UNBNDP (arg1), wrongnumargs);
       RETURN (SCM_SUBRF (proc) ())
     case scm_tc7_subr_1:
+      SCM_ASRTGO (!SCM_UNBNDP (arg1), wrongnumargs);
     case scm_tc7_subr_1o:
       SCM_ASRTGO (SCM_NULLP (args), wrongnumargs);
       RETURN (SCM_SUBRF (proc) (arg1))