unbreak test-case

Fix a mistake in 644a4c550f.
2015-12-10 09:29:15 -07:00 · 2015-12-10 09:29:15 -07:00 · 6d59b5e60d
commit 6d59b5e60d
parent 644a4c550f
1 changed files with 1 additions and 1 deletions
--- a/rackunit-lib/rackunit/private/test-case.rkt
+++ b/rackunit-lib/rackunit/private/test-case.rkt
@ -70,7 +70,7 @@

 (define (ensure-string name src-stx)
  (contract string? name
-            (syntax-source name)
+            (syntax-source src-stx)
            (syntax-source-module #'test-case #t)))

 (define-syntax before