fix construction of test case failure message

2017-10-06 09:50:18 -05:00 · 2017-10-06 09:50:18 -05:00 · ce30687ec6
commit ce30687ec6
parent c7c8f6da7e
1 changed files with 1 additions and 1 deletions
--- a/pkgs/racket-test/tests/racket/contract/test-util.rkt
+++ b/pkgs/racket-test/tests/racket/contract/test-util.rkt
@ -409,7 +409,7 @@
                      (let-values ([(base name dir) (split-path src)])
                        (format "~a" name))
                      (format "~s" src)))
-       #`(test/no-error/proc #,fn #,(syntax-source stx) arg))]))
+       #`(test/no-error/proc #,fn #,(syntax-line stx) arg))]))

 (define (test/no-error/proc fn line sexp)
  (contract-eval