(no subject)

[Matthias Koeppe]

To: address@hidden
Subject: Patch for local defines in procedures with opt-args
From: Matthias Koeppe <address@hidden>
Date: 05 Jun 2001 12:48:35 +0200
Message-ID: <address@hidden>
Lines: 24
MIME-Version: 1.0
Content-Type: text/plain; charset=iso-8859-1
Content-Transfer-Encoding: quoted-printable
Sender: Matthias Koeppe <address@hidden>

Here is a little patch that enables the use of local defines in
procedures with optional arguments (see my recent post of test-suite
additions).=20

Index: ice-9/optargs.scm
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /cvs/guile/guile-core/ice-9/optargs.scm,v
retrieving revision 1.12
diff -u -r1.12 optargs.scm
--- ice-9/optargs.scm   2001/05/20 23:37:42     1.12
+++ ice-9/optargs.scm   2001/06/05 08:33:54
@@ -270,7 +270,8 @@
                                    `((if (not (null? ,rest-gensym))
                                          (error "Too many arguments.")))
                                    '())
-                             ,@BODY)))
+                             (let ()
+                               ,@BODY))))
           `(lambda (,@non-optional-args . ,(if rest-arg rest-arg '()))
              ,@BODY))))))
=20

--=20
Matthias K=F6ppe -- http://www.math.uni-magdeburg.de/~mkoeppe