Use quote-srcloc to avoid paths in the compiled code.

Closes #1165.
2015-12-11 13:11:48 -05:00 · 2015-12-11 13:11:48 -05:00 · e45e5712de
commit e45e5712de
parent acbcff1bf4
1 changed files with 1 additions and 6 deletions
--- 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