add source location

2017-04-27 21:21:49 -07:00 · 2017-04-27 21:21:49 -07:00 · 7acbcbb0cc
commit 7acbcbb0cc
parent e92156e78a
1 changed files with 1 additions and 1 deletions
--- a/turnstile/examples/stlc+union.rkt
+++ b/turnstile/examples/stlc+union.rkt
@ -59,7 +59,7 @@
     #:with tys- (prune+sort #'(ty1- ... ... ty2- ...))
     (if (= 1 (stx-length #'tys-))
         (stx-car #'tys-)
-         #'(U* . tys-))]))
+         (syntax/loc stx (U* . tys-)))]))
 (define-syntax Bool
  (make-variable-like-transformer
   (add-orig #'(U False True) #'Bool)))