mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-06-12 14:50:19 +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>
|
1999-02-15 Jim Blandy <jimb@savonarola.red-bean.com>
|
||||||
|
|
||||||
Fix from Russ McManus:
|
Fix from Russ McManus:
|
||||||
|
|
|
@ -369,6 +369,7 @@
|
||||||
(else (parse-opt-and-fixed arglist '() #f rest cont)))))))))
|
(else (parse-opt-and-fixed arglist '() #f rest cont)))))))))
|
||||||
(define (parse-rest arglist cont)
|
(define (parse-rest arglist cont)
|
||||||
(cond
|
(cond
|
||||||
|
((null? arglist) (cont '() '() '() #f #f))
|
||||||
((not (pair? arglist)) (cont '() '() '() #f arglist))
|
((not (pair? arglist)) (cont '() '() '() #f arglist))
|
||||||
((not (list? arglist))
|
((not (list? arglist))
|
||||||
(let* ((copy (list-copy arglist))
|
(let* ((copy (list-copy arglist))
|
||||||
|
|
Loading…
Add table
Add a link
Reference in a new issue