From 839323ff7c8a808e3a8d1d2f1d6973fdb95b5e62 Mon Sep 17 00:00:00 2001 From: Ryan Culpepper Date: Thu, 1 Aug 2013 11:24:28 -0400 Subject: [PATCH] fix test line number --- pkgs/racket-pkgs/racket-test/tests/stxparse/select.rkt | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/pkgs/racket-pkgs/racket-test/tests/stxparse/select.rkt b/pkgs/racket-pkgs/racket-test/tests/stxparse/select.rkt index 9666e508f5..8de2127810 100644 --- a/pkgs/racket-pkgs/racket-test/tests/stxparse/select.rkt +++ b/pkgs/racket-pkgs/racket-test/tests/stxparse/select.rkt @@ -14,8 +14,8 @@ (define-syntax terx* (syntax-parser [(terx s [p ...] (~optional (~seq #:term term) #:defaults ([term #'#f])) rx ...) - #'(test-case (format "line ~s: ~a match ~s for error" - (syntax-line (quote-syntax s)) + #`(test-case (format "line ~s: ~a match ~s for error" + '#,(syntax-line #'s) 's '(p ...)) (let ([exn (let/ec escape (check-exn (lambda (exn)