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

non-standard extension - allowing empty expressions in case clauses

Browse source
This commit is contained in:
Alex Shinn 2011-11-28 20:51:34 +09:00
parent 34c1b86137
commit e7dbddadef
1 changed files with 7 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

10
lib/init-7.scm
View file

@ -271,9 +271,13 @@
(er-macro-transformer
(lambda (expr rename compare)
(define (body exprs)
(if (compare (rename '=>) (car exprs))
`(,(cadr exprs) ,(rename 'tmp))
`(,(rename 'begin) ,@exprs)))
(cond
((null? exprs)
(rename 'tmp))
((compare (rename '=>) (car exprs))
`(,(cadr exprs) ,(rename 'tmp)))
(else
`(,(rename 'begin) ,@exprs))))
(define (clause ls)
(cond
((null? ls) #f)