Fcalva/cyclone
1
0
Fork 0
mirror of https://github.com/justinethier/cyclone.git synced 2025-07-16 09:17:35 +02:00
Code Issues Projects Releases Packages Wiki Activity Actions

Merge pull request #438 from arthurmaciel/unless-when

Browse source 
Unless/when don't have alternate clause
This commit is contained in:
Justin Ethier 2021-01-22 22:17:31 -05:00 • committed by GitHub
commit f8b2d5a9cc
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23
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? (cdr exp)) (error/loc "empty when" exp))
(if (null? (cddr exp)) (error/loc "no when body" exp)) (if (null? (cddr exp)) (error/loc "no when body" exp))
`(if ,(cadr exp) `(if ,(cadr exp)
((lambda () ,@(cddr exp))) ((lambda () ,@(cddr exp)))))))
#f))))
(define-syntax unless (define-syntax unless
(er-macro-transformer (er-macro-transformer
(lambda (exp rename compare) (lambda (exp rename compare)
(if (null? (cdr exp)) (error/loc "empty unless" exp)) (if (null? (cdr exp)) (error/loc "empty unless" exp))
(if (null? (cddr exp)) (error/loc "no unless body" exp)) (if (null? (cddr exp)) (error/loc "no unless body" exp))
`(if ,(cadr exp) `(if (not ,(cadr exp))
#f
((lambda () ,@(cddr exp))))))) ((lambda () ,@(cddr exp)))))))
(define-syntax do (define-syntax do
(er-macro-transformer (er-macro-transformer