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

Rewrote (cond) to not use (begin)

Browse source
This commit is contained in:
Justin Ethier 2015-08-25 01:54:33 -04:00
parent 9d316b3397
commit 82ba3fe18e
1 changed files with 2 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

4
scheme/base.sld
View file

@ -223,7 +223,7 @@
(if (compare (rename 'else) (car cl))
(if (pair? (cddr expr))
(error "non-final else in cond" expr)
(cons (rename 'begin) (cdr cl)))
(list (cons (rename 'lambda) (cons '() (cdr cl)))))
(if (if (null? (cdr cl)) #t (compare (rename '=>) (cadr cl)))
(list (list (rename 'lambda) (list (rename 'tmp))
(list (rename 'if) (rename 'tmp)
@ -234,7 +234,7 @@
(car cl))
(list (rename 'if)
(car cl)
(cons (rename 'begin) (cdr cl))
(list (cons (rename 'lambda) (cons '() (cdr cl))))
(cons (rename 'cond) (cddr expr))))))
(cadr expr))))))
(define-syntax case