* optargs.scm (lambda*): Bugfix: Replaced ARGLIST -->

non-optional-args.  (Thanks to David Lutterkort.)

diff --git a/ice-9/optargs.scm b/ice-9/optargs.scm
index b63f4f6..83951ad 100644 (file)
--- a/ice-9/optargs.scm
+++ b/ice-9/optargs.scm
@@ -317,7 +317,7 @@
                                          (error "Too many arguments.")))
                                    '())
                              ,@BODY)))
-          `(lambda (,@ARGLIST . ,(if rest-arg rest-arg '())) 
+          `(lambda (,@non-optional-args . ,(if rest-arg rest-arg '())) 
              ,@BODY))))))