suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

more else -> _ conversions

Browse Source
This commit is contained in:
Robby Findler 2013-05-04 10:36:42 -05:00
parent ad8b5c5eb7
commit f8e8c42780
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
collects/redex/private/match-a-pattern.rkt
View File

@ -98,7 +98,7 @@ turns into this:
`(list ,lpat ...) `(list ,lpat ...)
(? (compose not pair?))) ;; pattern for literals (numbers, strings, prefabs, etc etc etc) (? (compose not pair?))) ;; pattern for literals (numbers, strings, prefabs, etc etc etc)
(if allow-else? (if allow-else?
(list 'else) (list '_)
(list)))) (list))))
(for ([pat (in-list pats)]) (for ([pat (in-list pats)])
(when (null? should-be-pats) (when (null? should-be-pats)