From 1987c8ee57098ade2de19facb30f5b4aa55a0fde Mon Sep 17 00:00:00 2001
From: Marius Vollmer <mvo@zagadka.de>
Date: Sat, 9 Jun 2001 18:14:22 +0000
Subject: [PATCH] =?UTF-8?q?(lambda*):=20Make=20sure=20that=20BODY=20is=20a?=
 =?UTF-8?q?lways=20put=20into=20a=20real=20body=20context=20so=20that=20it?=
 =?UTF-8?q?=20can=20contain=20internal=20definitions.=20Thanks=20to=20Matt?=
 =?UTF-8?q?hias=20K=C3=B6ppe!?=
MIME-Version: 1.0
Content-Type: text/plain; charset=UTF-8
Content-Transfer-Encoding: 8bit

---
 ice-9/optargs.scm | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/ice-9/optargs.scm b/ice-9/optargs.scm
index 2ee0411ac..fd4db654b 100644
--- a/ice-9/optargs.scm
+++ b/ice-9/optargs.scm
@@ -294,7 +294,8 @@
 				    `((if (not (null? ,rest-gensym))
 					  (error "Too many arguments.")))
 				    '())
-			      ,@BODY)))
+			      (let ()
+				,@BODY))))
 	   `(lambda (,@non-optional-args . ,(if rest-arg rest-arg '()))
 	      ,@BODY))))))