From 41ee56dde37d65598ec82de66fbd3c984292eafb Mon Sep 17 00:00:00 2001
From: Mikael Djurfeldt <djurfeldt@nada.kth.se>
Date: Mon, 29 Jan 2001 18:23:34 +0000
Subject: [PATCH] * eval.c (SCM_APPLY): Check that primitives which take 1 arg
 really get that arg.

---
 libguile/ChangeLog | 5 +++++
 libguile/eval.c    | 1 +
 2 files changed, 6 insertions(+)

diff --git a/libguile/ChangeLog b/libguile/ChangeLog
index eb8a51143..8123b7241 100644
--- a/libguile/ChangeLog
+++ b/libguile/ChangeLog
@@ -1,3 +1,8 @@
+2001-01-29  Mikael Djurfeldt  <mdj@linnaeus.mit.edu>
+
+	* eval.c (SCM_APPLY): Check that primitives which take 1 arg
+	really get that arg.
+
 2001-01-26  Keisuke Nishida  <kxn30@po.cwru.edu>
 
 	* goops.c (s_scm_get_keyword): Bug fix.
diff --git a/libguile/eval.c b/libguile/eval.c
index 62bef0b4b..eaef7570e 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -3302,6 +3302,7 @@ tail:
       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))