From 90cd76d9d80346988e2d334e54839edadb201594 Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Thu, 29 Mar 2001 22:38:00 +0000
Subject: [PATCH] * eval.c (SCM_APPLY): Check that arg1 is bound for
 scm_tc7_cxr.

---
 libguile/eval.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/libguile/eval.c b/libguile/eval.c
index d57ca1ac7..0d3c620fc 100644
--- a/libguile/eval.c
+++ b/libguile/eval.c
@@ -3399,7 +3399,7 @@ tail:
       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))