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

removed some bogus stuff in combinator code

Browse Source 
svn: r2166
This commit is contained in:
Eli Barzilay 2006-02-07 22:11:06 +00:00
parent 78581eef66
commit 86e91af13d
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/swindle/tiny-clos.ss
View File

@ -1328,11 +1328,11 @@
(make-generic-combination :init #f :combine (lambda (x y) x)))
(define* generic-and-combination
(make-generic-combination
:init #t :combine (lambda (x y) (and x y))
:init #t
:control (lambda (loop val this tail) (and val (loop (this) tail)))))
(define* generic-or-combination
(make-generic-combination
:init #f :combine (lambda (x y) (and x y))
:init #f
:control (lambda (loop val this tail) (or (this) (loop #f tail)))))
;;>>...