fix test line number

2013-08-01 11:24:28 -04:00 · 2013-08-01 11:24:28 -04:00 · 839323ff7c
commit 839323ff7c
parent 94c5e5e250
1 changed files with 2 additions and 2 deletions
--- 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)