From e45e5712de55ed638d62c9eafd027dbff535100c Mon Sep 17 00:00:00 2001 From: Sam Tobin-Hochstadt Date: Fri, 11 Dec 2015 13:11:48 -0500 Subject: [PATCH] Use `quote-srcloc` to avoid paths in the compiled code. Closes #1165. --- racket/collects/racket/contract/private/provide.rkt | 7 +------ 1 file changed, 1 insertion(+), 6 deletions(-) diff --git a/racket/collects/racket/contract/private/provide.rkt b/racket/collects/racket/contract/private/provide.rkt index f11b8413e3..12055dcadc 100644 --- a/racket/collects/racket/contract/private/provide.rkt +++ b/racket/collects/racket/contract/private/provide.rkt @@ -267,12 +267,7 @@ ;; syntax -> syntax ;; returns an expression that evaluates to the source location of the argument (define-for-syntax (stx->srcloc-expr srcloc-stx) - #`(vector - '#,(syntax-source srcloc-stx) - #,(syntax-line srcloc-stx) - #,(syntax-column srcloc-stx) - #,(syntax-position srcloc-stx) - #,(syntax-span srcloc-stx))) + #`(quote-srcloc #,srcloc-stx)) (define-for-syntax (internal-function-to-be-figured-out ctrct id