syntax/parse: fix ~between; closes #2856

Please merge to release branch.

pkgs/racket-test/tests/stxparse/setup.rkt

@@ -16,6 +16,7 @@
          bound
          s=
          a=
+         convert-compile-time-error
          convert-syntax-error)
 
 #|

pkgs/racket-test/tests/stxparse/test.rkt

@@ -1054,3 +1054,8 @@
      [(_ (~or (~seq a b c (~parse (d e f) #'(a b c)))
               (~seq x:id ...)))
       (void)])))
+
+;; from @jjsimpso, ~between pattern (10/2019)
+(convert-compile-time-error
+ (syntax-parse #'(1 2 'bar 4 5 'bar 'foo)
+   [((~seq (~between x:nat 2 2) ... z) ...+ expr) (void)]))

racket/collects/syntax/parse/private/rep.rkt

@@ -1176,7 +1176,7 @@
               [name
                (options-select-value chunks '#:name #:default #'#f)])
          (list (create-ehpat head
-                             (make rep:bounds #'min #'max
+                             (make rep:bounds minN maxN
                                    name too-few-msg too-many-msg)
                              #'p)
                #'p)))]))