diff --git a/collects/racket/private/sc.rkt b/collects/racket/private/sc.rkt index e29df86e11..6bde993abd 100644 --- a/collects/racket/private/sc.rkt +++ b/collects/racket/private/sc.rkt @@ -567,7 +567,7 @@ (apply raise-syntax-error 'syntax - "too many ellipsis in template" + "too many ellipses in template" (pick-specificity top last-el))))] diff --git a/collects/redex/tests/rg-test.rkt b/collects/redex/tests/rg-test.rkt index e56ff93313..0a17a6be40 100644 --- a/collects/redex/tests/rg-test.rkt +++ b/collects/redex/tests/rg-test.rkt @@ -226,7 +226,7 @@ (test (with-handlers ([exn:fail:syntax? exn-message]) (parameterize ([current-namespace ns]) (expand #'(generate-term M n)))) - #rx"generate-term: expected an identifier defined by define-language( in: M)?$") + #rx"generate-term: expected an identifier defined by define-language([\n ]+in: M)?(\n|$)") (test-contract-violation/client (generate-term L n 1.5)) (test-contract-violation/client (generate-term L n 1 #:retries .5)) (test-contract-violation/client (generate-term L n 1 #:attempt-num .5)) diff --git a/collects/redex/tests/syn-err-tests/judgment-form-definition.rktd b/collects/redex/tests/syn-err-tests/judgment-form-definition.rktd index 40e6a406e4..b42881b44b 100644 --- a/collects/redex/tests/syn-err-tests/judgment-form-definition.rktd +++ b/collects/redex/tests/syn-err-tests/judgment-form-definition.rktd @@ -157,7 +157,7 @@ [(uses-unquote n unq)]) (void))) -(#rx"missing ellipses" +(#rx"missing ellipsis" ([use any_0]) ([ellipsis ...] [def any_0]) (let () (define-judgment-form syn-err-lang diff --git a/collects/redex/tests/syn-err-tests/term.rktd b/collects/redex/tests/syn-err-tests/term.rktd index 24db3a9383..2312024850 100644 --- a/collects/redex/tests/syn-err-tests/term.rktd +++ b/collects/redex/tests/syn-err-tests/term.rktd @@ -1,4 +1,4 @@ -(#rx"missing ellipses" +(#rx"missing ellipsis" ([id-no-ellipsis x]) ([ellipsis ...]) (term-let ([(id-no-ellipsis ellipsis) '(a b c)]) (term id-no-ellipsis)))