more else -> _ conversions

2013-05-04 10:36:42 -05:00 · 2013-05-04 10:36:42 -05:00 · f8e8c42780
commit f8e8c42780
parent ad8b5c5eb7
1 changed files with 1 additions and 1 deletions
--- a/collects/redex/private/match-a-pattern.rkt
+++ b/collects/redex/private/match-a-pattern.rkt
@ -98,7 +98,7 @@ turns into this:
                  `(list ,lpat ...)
                  (? (compose not pair?))) ;; pattern for literals (numbers, strings, prefabs, etc etc etc)
                (if allow-else?
-                    (list 'else)
+                    (list '_)
                    (list))))
      (for ([pat (in-list pats)])
        (when (null? should-be-pats)