suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add missing adjust-location call

Browse Source
This commit is contained in:
Robby Findler 2017-05-23 09:05:30 -05:00
parent ffe07718b8
commit 6a145244d6
1 changed files with 2 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
racket/collects/racket/contract/private/provide.rkt
View File

@ -146,7 +146,8 @@
#'extra-neg-party-argument-fn)) #'extra-neg-party-argument-fn))
lifted-neg-party lifted-neg-party
more ...))) 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 ;; In case of partial expansion for module-level and internal-defn
;; contexts, delay expansion until it's a good time to lift ;; contexts, delay expansion until it's a good time to lift
;; expressions: ;; expressions: