suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

SRFI 61 port

Browse Source 
svn: r1702
This commit is contained in:
Chongkai Zhu 2005-12-27 19:51:25 +00:00
parent 6745d9c651
commit af9b25ff0f
1 changed files with 12 additions and 23 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

35
collects/srfi/61/cond.ss
View File

@ -11,31 +11,20 @@
(if #t (begin else1 else2 ...))) (if #t (begin else1 else2 ...)))
((_ (test => receiver) more-clause ...) ((_ (test => receiver) more-clause ...)
(let ((t test)) (let ((t test))
(cond/maybe-more t (if t
(receiver t) (receiver t)
more-clause ...))) (my-cond more-clause ...))))
((_ (generator guard => receiver) more-clause ...) ((_ (generator guard => receiver) more-clause ...)
(call-with-values (lambda () generator) (call-with-values (lambda () generator)
(lambda t (lambda t
(cond/maybe-more (apply guard t) (if (apply guard t)
(apply receiver t) (apply receiver t)
more-clause ...)))) (my-cond more-clause ...)))))
((_ (test) more-clause ...) ((_ (test) more-clause ...)
(let ((t test)) (or test (my-cond more-clause ...)))
(cond/maybe-more t t more-clause ...))) ((_ (test body ...) more-clause ...)
((_ (test body1 body2 ...) more-clause ...) (if test
(cond/maybe-more test (begin body ...)
(begin body1 body2 ...) (my-cond more-clause ...)))
more-clause ...))
((_) ((_)
(cond)))) (void)))))
(define-syntax cond/maybe-more
(syntax-rules ()
((_ test consequent)
(if test
consequent))
((_ test consequent clause ...)
(if test
consequent
(my-cond clause ...))))))