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

Forgot quotes.

Browse source
This commit is contained in:
Alex Shinn 2013-07-08 22:12:10 +09:00
parent ac35703685
commit 53cecd82b2
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
lib/chibi/optional.scm
View file

@ -31,10 +31,10 @@
(let ((tmp (op . args))) (let ((tmp (op . args)))
(let-keywords* tmp vars . body))) (let-keywords* tmp vars . body)))
((let-keywords* opt-ls ((var default) . rest) . body) ((let-keywords* opt-ls ((var default) . rest) . body)
(let ((var (keyword-ref opt-ls var default))) (let ((var (keyword-ref opt-ls 'var default)))
(let-keywords* opt-ls rest . body))) (let-keywords* opt-ls rest . body)))
((let-keywords* opt-ls ((var key default) . rest) . body) ((let-keywords* opt-ls ((var key default) . rest) . body)
(let ((var (keyword-ref opt-ls key default))) (let ((var (keyword-ref opt-ls 'key default)))
(let-keywords* opt-ls rest . body))) (let-keywords* opt-ls rest . body)))
((let-keywords* opt-ls tail . body) ((let-keywords* opt-ls tail . body)
(let ((tail opt-ls)) . body)))) (let ((tail opt-ls)) . body))))