[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
(no subject)
From: |
Matthias Koeppe |
Subject: |
(no subject) |
Date: |
Tue, 05 Jun 2001 13:40:52 +0200 |
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