conservatory
/
picrin
4
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Merge pull request #115 from KeenS/case-else 

allow `else` and `=>` keyword in `case`
This commit is contained in:
Yuichi Nishiwaki 2014-05-27 23:17:24 +09:00
parent 01c21aa26c b9a783c23e
commit 935b5ca4f5
1 changed files with 8 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
piclib/built-in.scm
View File

@ -263,10 +263,14 @@
,(let loop ((clauses clauses)) ,(let loop ((clauses clauses))
(if (null? clauses) (if (null? clauses)
#f #f
`(,(r 'if) (,(r 'or) `(,(r 'if) ,(if (compare (r 'else) (caar clauses))
'#t
`(,(r 'or)
,@(map (lambda (x) `(,(r 'eqv?) ,(r 'key) (,(r 'quote) ,x))) ,@(map (lambda (x) `(,(r 'eqv?) ,(r 'key) (,(r 'quote) ,x)))
(caar clauses))) (caar clauses))))
(begin ,@(cdar clauses)) ,(if (compare (r '=>) (cadar clauses))
`(,(caddar clauses) ,(r 'key))
`(,(r 'begin) ,@(cdar clauses)))
,(loop (cdr clauses)))))))))) ,(loop (cdr clauses))))))))))
(define-syntax syntax-error (define-syntax syntax-error