propagate srcloc to check-equal? form

2016-03-10 10:15:24 -05:00 · 2016-03-10 10:15:24 -05:00 · f19eafcd8f
commit f19eafcd8f
parent 5c5f500f39
1 changed files with 3 additions and 2 deletions
--- a/tapl/tests/rackunit-typechecking.rkt
+++ b/tapl/tests/rackunit-typechecking.rkt
@ -69,6 +69,7 @@
 (define-syntax (check-type-and-result stx)
  (syntax-parse stx #:datum-literals (: ⇒)
    [(_ e : τ ⇒ v)
-     #'(begin
+     #`(begin
         (check-type e : τ)
-         (check-equal? e v))]))
+         #,(syntax/loc stx
+             (check-equal? e v)))]))