From 523956b9c18fd244f4ab82d307f89dec75fb50f6 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Mon, 1 Oct 2007 14:17:34 +0000
Subject: [PATCH] filter bug

svn: r7427
---
 collects/lazy/lazy.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/lazy/lazy.ss b/collects/lazy/lazy.ss
index b99e7c78ce..9c40119943 100644
--- a/collects/lazy/lazy.ss
+++ b/collects/lazy/lazy.ss
@@ -638,7 +638,7 @@
               [(pair? list)
                (let ([x (car list)]
                      [xs (~ (loop (! (cdr list))))])
-                 (if (!*app pred x) (cons x xs) xs))]
+                 (if (! (!*app pred x)) (cons x xs) xs))]
               [else (error 'filter "not a proper list: ~e" list)]))))
 
   (require (rename (lib "list.ss") !sort sort))