diff --git a/typed-racket-lib/typed-racket/infer/fail.rkt b/typed-racket-lib/typed-racket/infer/fail.rkt index 13544ac7..ae5f25e1 100644 --- a/typed-racket-lib/typed-racket/infer/fail.rkt +++ b/typed-racket-lib/typed-racket/infer/fail.rkt @@ -14,7 +14,7 @@ #'((early-return rhs ...)))) (syntax-parse stx [(_ e [c . r:rhs] ...) - #'(match* e [c . r.r] ...)])) + (syntax/loc stx (match* e [c . r.r] ...))])) (begin-for-syntax (define-splicing-syntax-class arg