commit fe494c6ad3dc89c1916add8514fa15f76bb0f89a parent f19eafcd8fda31157d17f1baf2af9497a4338b67 Author: AlexKnauth <alexander@knauth.org> Date: Thu, 10 Mar 2016 10:26:50 -0500 fix another srcloc Diffstat:
| M | tapl/tests/rackunit-typechecking.rkt | | | 4 | +++- |
1 file changed, 3 insertions(+), 1 deletion(-)
diff --git 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