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

(cond) now expands to #f if no clause matches

Browse source
This commit is contained in:
Justin Ethier 2015-06-24 21:44:55 -04:00
parent 83e0a6e662
commit 321995c914
2 changed files with 2 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

1
test2.scm
View file

@ -9,4 +9,5 @@
;(else #t) ;(else #t)
) )
;) ;)
1

2
transforms.scm
View file

@ -51,7 +51,7 @@
(cons 'cond (cons 'cond
(lambda (expr rename compare) (lambda (expr rename compare)
(if (null? (cdr expr)) (if (null? (cdr expr))
(if #f #f) #f ;(if #f #f)
((lambda (cl) ((lambda (cl)
(if (compare (rename 'else) (car cl)) (if (compare (rename 'else) (car cl))
(if (pair? (cddr expr)) (if (pair? (cddr expr))