Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-05-23 20:15:05 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Unless/when don't have alternate clause

Browse source
This commit is contained in:
Arthur Maciel 2021-01-22 22:25:29 -03:00
parent 35f0c486cd
commit 1d1cd8d61f
1 changed files with 2 additions and 4 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
scheme/base.sld
View file

@ -483,15 +483,13 @@
(if (null? (cdr exp)) (error/loc "empty when" exp))
(if (null? (cddr exp)) (error/loc "no when body" exp))
`(if ,(cadr exp)
((lambda () ,@(cddr exp)))
#f))))
((lambda () ,@(cddr exp)))))))
(define-syntax unless
(er-macro-transformer
(lambda (exp rename compare)
(if (null? (cdr exp)) (error/loc "empty unless" exp))
(if (null? (cddr exp)) (error/loc "no unless body" exp))
`(if ,(cadr exp)
#f
`(if (not ,(cadr exp))
((lambda () ,@(cddr exp)))))))
(define-syntax do
(er-macro-transformer