Fcalva/chibi-scheme
1
0
Fork 0
mirror of https://github.com/ashinn/chibi-scheme.git synced 2025-05-20 06:09:18 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

allow rest param in let-optionals

Browse source
This commit is contained in:
Alex Shinn 2019-10-14 22:04:23 +08:00
parent 58e10b2a7d
commit f4b0277d01
2 changed files with 8 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
lib/chibi/optional-test.sld
View file

@ -16,6 +16,12 @@
((opt-lambda (a (b 11) (c 12)) ((opt-lambda (a (b 11) (c 12))
(list a b c)) (list a b c))
0)) 0))
(test '(0 1 (2 3 4))
(let-optionals* '(0 1 2 3 4) ((a 10) (b 11) . c)
(list a b c)))
(test '(0 1 (2 3 4))
(let-optionals '(0 1 2 3 4) ((a 10) (b 11) . c)
(list a b c)))
(test-error '(0 11 12) (test-error '(0 11 12)
((opt-lambda (a (b 11) (c 12)) ((opt-lambda (a (b 11) (c 12))
(list a b c)))) (list a b c))))

4
lib/chibi/optional.scm
View file

@ -51,8 +51,8 @@
(define-syntax let-optionals (define-syntax let-optionals
(syntax-rules () (syntax-rules ()
((let-optionals ls ((var default) ...) body ...) ((let-optionals ls ((var default) ... . rest) body ...)
(let*-to-let let-optionals* ls () ((var default) ...) body ...)))) (let*-to-let let-optionals* ls () ((var default) ... . rest) body ...))))
;;> \macro{(let-optionals* ls ((var default) ... [rest]) body ...)} ;;> \macro{(let-optionals* ls ((var default) ... [rest]) body ...)}
;;> ;;>