www

commit 33db7ad092575ecb07a6d3ae2cd5bb246f9a3ef8
parent 713eec89ea1a59a1a03a07359ca15ba124a49a3f
Author: AlexKnauth <alexander@knauth.org>
Date:   Mon,  3 Apr 2017 15:15:19 -0700

add missing syntax/loc

Diffstat:
M
macrotypes/typecheck.rkt
 | 
2
+-

1 file changed, 1 insertion(+), 1 deletion(-)
diff --git a/macrotypes/typecheck.rkt b/macrotypes/typecheck.rkt
@@ -559,7 +559,7 @@
                      ;; to ensure enough stx-parse progress for proper err msg,
                      ;; ie, "invalid type" instead of "improper tycon usage"
                      #:with (~! (~var _ type) (... (... ...))) #'(arg- (... (... ...)))
-                     (add-orig (mk-type #'(τ- arg- (... (... ...)))) stx)]
+                     (add-orig (mk-type (syntax/loc stx (τ- arg- (... (... ...))))) stx)]
                     [_ ;; else fail with err msg
                      (type-error #:src stx
                       #:msg