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

2016-09-29 17:21:30 +02:00 · 2016-09-29 17:21:30 +02:00 · 7465aead4c
commit 7465aead4c
parent c7c2549695
2 changed files with 9 additions and 7 deletions
--- a/implementation.rkt
+++ b/implementation.rkt
@ -285,6 +285,8 @@
        (syntax-parser
          #:context context
          #:literals (^ * + - ∞ once)
+          [({~do (displayln this-syntax)} #:oops-nope)
+           #'trbgfdsctgbrfvdc]
          [()
           #'(list)]
          [rest:not-stx-pair
@ -335,7 +337,7 @@
           #`(list-rest-ish [] base ellipsis #,(xl #'rest))]
          [(:base {~^ once} . rest)
           #`(list-rest-ish [] base #|no ellipsis|# #,(xl #'rest))]
-          [(:base {~^ power:nat})
+          [(:base {~^ power:nat} . rest)
           #:with occurrences (gensym 'occurrences)
           #`(list-rest-ish [(? (λ (_) (= (length occurrences) power)))]
                            (and occurrences base) ooo