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

Fixed {~^ power:nat} for the match expander (the . rest was missing)

Browse Source
This commit is contained in:
Georges Dupéron 2016-09-29 17:21:30 +02:00
parent c7c2549695
commit 7465aead4c
2 changed files with 9 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
implementation.rkt
View File

@ -285,6 +285,8 @@
(syntax-parser (syntax-parser
#:context context #:context context
#:literals (^ * + - ∞ once) #:literals (^ * + - ∞ once)
[({~do (displayln this-syntax)} #:oops-nope)
#'trbgfdsctgbrfvdc]
[() [()
#'(list)] #'(list)]
[rest:not-stx-pair [rest:not-stx-pair
@ -335,7 +337,7 @@
#`(list-rest-ish [] base ellipsis #,(xl #'rest))] #`(list-rest-ish [] base ellipsis #,(xl #'rest))]
[(:base {~^ once} . rest) [(:base {~^ once} . rest)
#`(list-rest-ish [] base #|no ellipsis|# #,(xl #'rest))] #`(list-rest-ish [] base #|no ellipsis|# #,(xl #'rest))]
[(:base {~^ power:nat}) [(:base {~^ power:nat} . rest)
#:with occurrences (gensym 'occurrences) #:with occurrences (gensym 'occurrences)
#`(list-rest-ish [(? (λ (_) (= (length occurrences) power)))] #`(list-rest-ish [(? (λ (_) (= (length occurrences) power)))]
(and occurrences base) ooo (and occurrences base) ooo