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

Hacky fix to only flatten repeats

Browse Source
This commit is contained in:
Max New 2013-05-13 20:39:46 -05:00
parent 943179aab1
commit c31d0e02d4
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/redex/private/enum.rkt
View File

@ -344,7 +344,10 @@
(error/enum 'unimplemented "named-repeat")] (error/enum 'unimplemented "named-repeat")]
[`(repeat ,pat #f ,mismatch) [`(repeat ,pat #f ,mismatch)
(error/enum 'unimplemented "mismatch-repeat")] (error/enum 'unimplemented "mismatch-repeat")]
[else (loop sub-pat)])) [else (map/enum
(λ (x) (list x))
car
(loop sub-pat))]))
sub-pats)))] sub-pats)))]
[(? (compose not pair?)) [(? (compose not pair?))
(const/enum pat)]))] (const/enum pat)]))]
@ -436,7 +439,10 @@
(error/enum 'unimplemented "named-repeat")] (error/enum 'unimplemented "named-repeat")]
[`(repeat ,pat #f ,mismatch) [`(repeat ,pat #f ,mismatch)
(error/enum 'unimplemented "mismatch-repeat")] (error/enum 'unimplemented "mismatch-repeat")]
[else (loop sub-pat)])) [else (map/enum
list
cdr
(loop sub-pat))]))
sub-pats)))] sub-pats)))]
[(? (compose not pair?)) [(? (compose not pair?))
(const/enum pat)]))])) (const/enum pat)]))]))