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 ...)))
((_ (test => receiver) more-clause ...)
(let ((t test))
(cond/maybe-more t
(receiver t)
more-clause ...)))
(if t
(receiver t)
(my-cond more-clause ...))))
((_ (generator guard => receiver) more-clause ...)
(call-with-values (lambda () generator)
(lambda t
(cond/maybe-more (apply guard t)
(apply receiver t)
more-clause ...))))
(if (apply guard t)
(apply receiver t)
(my-cond more-clause ...)))))
((_ (test) more-clause ...)
(let ((t test))
(cond/maybe-more t t more-clause ...)))
((_ (test body1 body2 ...) more-clause ...)
(cond/maybe-more test
(begin body1 body2 ...)
more-clause ...))
(or test (my-cond more-clause ...)))
((_ (test body ...) more-clause ...)
(if test
(begin body ...)
(my-cond more-clause ...)))
((_)
(cond))))
(define-syntax cond/maybe-more
(syntax-rules ()
((_ test consequent)
(if test
consequent))
((_ test consequent clause ...)
(if test
consequent
(my-cond clause ...))))))
(void)))))