From 86e91af13d62f602ae0805cce03358ec3cb2a228 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 7 Feb 2006 22:11:06 +0000
Subject: [PATCH] removed some bogus stuff in combinator code

svn: r2166
---
 collects/swindle/tiny-clos.ss | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/collects/swindle/tiny-clos.ss b/collects/swindle/tiny-clos.ss
index ca7a887aaf..e2147182e6 100644
--- a/collects/swindle/tiny-clos.ss
+++ b/collects/swindle/tiny-clos.ss
@@ -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)))))
 
 ;;>>...