Remove eta expansion, match is now fixed.

svn: r13622
2009-02-15 21:59:55 +00:00 · 2009-02-15 21:59:55 +00:00 · 72e118d92f
commit 72e118d92f
parent 1943083cf9
1 changed files with 1 additions and 1 deletions
--- a/collects/redex/private/matcher.ss
+++ b/collects/redex/private/matcher.ss
@ -764,7 +764,7 @@ before the pattern compiler is invoked.
                         #f
                         filtered)))))
          has-hole?))]
-      [(? (lambda (x) (list? x))) ;; this eta expansion is to defeat a bug in match
+      [(? list?)
       (let-values ([(rewritten has-hole?) (rewrite-ellipses non-underscore-binder? pattern compile-pattern/default-cache)])
         (let ([count (and (not (ormap repeat? rewritten))
                           (length rewritten))])