fix another srcloc

2016-03-10 10:26:50 -05:00 · 2016-03-10 10:26:50 -05:00 · fe494c6ad3
commit fe494c6ad3
parent f19eafcd8f
1 changed files with 3 additions and 1 deletions
--- a/tapl/tests/rackunit-typechecking.rkt
+++ b/tapl/tests/rackunit-typechecking.rkt
@ -18,7 +18,9 @@

 (define-syntax (check-type stx)
  (syntax-parse stx #:datum-literals (: ⇒ ->)
-    [(_ e : τ (~or ⇒ ->) v) #'(check-type-and-result e : τ ⇒ v)]
+    [(_ e : τ (~or ⇒ ->) v)
+     (syntax/loc stx
+       (check-type-and-result e : τ ⇒ v))]
    [(_ e : τ-expected)
     #:with τ (typeof (expand/df #'e))
     #:fail-unless