removed bogus inference from matcher's optimizer

svn: r6034
2007-04-24 18:22:10 +00:00 · 2007-04-24 18:22:10 +00:00 · c3e07c0a8c
commit c3e07c0a8c
parent a1e53c9283
1 changed files with 0 additions and 3 deletions
--- a/collects/mzlib/private/match/match-helper.ss
+++ b/collects/mzlib/private/match/match-helper.ss
@ -127,9 +127,6 @@
             (eq? (car el) 'struct-pred)
             (member (caaddr e) (caddr el))
             (equal? (cadddr e) (cadddr el))))) l)
-     (and (eq? (car e) 'list?)
-          (or (member `(null? ,(cadr e)) l)
-              (member `(pair? ,(cadr e)) l)))
     (and (eq? (car e) 'not)
          (let* ((srch (cadr e))
                 (const-class (equal-test? srch)))