add missing adjust-location call

2017-05-23 09:05:30 -05:00 · 2017-05-23 09:05:30 -05:00 · 6a145244d6
commit 6a145244d6
parent ffe07718b8
1 changed files with 2 additions and 1 deletions
--- a/racket/collects/racket/contract/private/provide.rkt
+++ b/racket/collects/racket/contract/private/provide.rkt
@ -146,7 +146,8 @@
                                                     #'extra-neg-party-argument-fn))
                                   lifted-neg-party
                                   more ...)))
-                         #`(app #,(gen-slow-path-code) more ...)))]))
+                         (adjust-location
+                          #`(app #,(gen-slow-path-code) more ...))))]))
              ;; In case of partial expansion for module-level and internal-defn
              ;; contexts, delay expansion until it's a good time to lift
              ;; expressions: