1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-11 06:20:23 +02:00

* optargs.scm (lambda*): Handle empty argument lists properly.

This commit is contained in:
Maciej Stachowiak 1999-02-16 08:28:13 +00:00
parent 8d21a2ff68
commit fcdd667220
2 changed files with 5 additions and 0 deletions

View file

@ -1,3 +1,7 @@
1999-02-16 Maciej Stachowiak <mstachow@alum.mit.edu>
* optargs.scm (lambda*): Handle empty argument lists properly.
1999-02-15 Jim Blandy <jimb@savonarola.red-bean.com>
Fix from Russ McManus:

View file

@ -369,6 +369,7 @@
(else (parse-opt-and-fixed arglist '() #f rest cont)))))))))
(define (parse-rest arglist cont)
(cond
((null? arglist) (cont '() '() '() #f #f))
((not (pair? arglist)) (cont '() '() '() #f arglist))
((not (list? arglist))
(let* ((copy (list-copy arglist))