filter bug

svn: r7427
2007-10-01 14:17:34 +00:00 · 2007-10-01 14:17:34 +00:00 · 523956b9c1
commit 523956b9c1
parent 35c37dd664
1 changed files with 1 additions and 1 deletions
--- 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))