From 72e118d92fb910e30345b81682314120c7db9926 Mon Sep 17 00:00:00 2001
From: Sam Tobin-Hochstadt <samth@racket-lang.org>
Date: Sun, 15 Feb 2009 21:59:55 +0000
Subject: [PATCH] Remove eta expansion, match is now fixed.

svn: r13622
---
 collects/redex/private/matcher.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/redex/private/matcher.ss b/collects/redex/private/matcher.ss
index 09fd40f5a7..64016610fe 100644
--- 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))])