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:
parent
8d21a2ff68
commit
fcdd667220
2 changed files with 5 additions and 0 deletions
|
@ -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:
|
||||
|
|
|
@ -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))
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue