fix highlighting on duplicate pattern variable

fixes #40
michaelballantyne · Oct 17, 2024 · 5c9f52d · 5c9f52d
1 parent 2e01e7b
commit 5c9f52d
Show file tree

Hide file tree

Showing 2 changed files with 3 additions and 3 deletions.
diff --git a/private/syntax/compile/syntax-spec.rkt b/private/syntax/compile/syntax-spec.rkt
@@ -143,7 +143,7 @@
       [r:ref-id
        #:with c:special-syntax-class #'r.ref
        (when (member #'r.var res bound-identifier=?)
-         (wrong-syntax/orig #'r.ref "duplicate pattern variable"))
+         (wrong-syntax/orig #'r.var "duplicate pattern variable"))
        (bind! #'r.var (pvar-rep (special-syntax-class-binding) depth))
        (set! res (cons #'r.var res))]
       [r:ref-id
@@ -156,7 +156,7 @@
        (when (not binding)
          (wrong-syntax/orig #'r.ref "expected a reference to a binding class, extension class, syntax class, or nonterminal"))
        (when (member #'r.var res bound-identifier=?)
-         (wrong-syntax/orig #'r.ref "duplicate pattern variable"))
+         (wrong-syntax/orig #'r.var "duplicate pattern variable"))
        (bind! #'r.var (pvar-rep binding depth))
        (set! res (cons #'r.var res))]
       [_ (void)]))

diff --git a/tests/errors.rkt b/tests/errors.rkt
@@ -37,7 +37,7 @@
      x:unbound-name)))
 
 (check-decl-error
- #rx"syntax-spec: duplicate pattern variable"
+ #rx"syntax-spec: duplicate pattern variable\n  at: x"
  (syntax-spec
    (binding-class dsl-var #:description "dsl-var")
    (nonterminal expr