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

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

Browse Source 
Closes #1165.
This commit is contained in:
Sam Tobin-Hochstadt 2015-12-11 13:11:48 -05:00
parent acbcff1bf4
commit e45e5712de
1 changed files with 1 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -267,12 +267,7 @@
;; syntax -> syntax ;; syntax -> syntax
;; returns an expression that evaluates to the source location of the argument ;; returns an expression that evaluates to the source location of the argument
(define-for-syntax (stx->srcloc-expr srcloc-stx) (define-for-syntax (stx->srcloc-expr srcloc-stx)
#`(vector #`(quote-srcloc #,srcloc-stx))
'#,(syntax-source srcloc-stx)
#,(syntax-line srcloc-stx)
#,(syntax-column srcloc-stx)
#,(syntax-position srcloc-stx)
#,(syntax-span srcloc-stx)))
(define-for-syntax (internal-function-to-be-figured-out ctrct (define-for-syntax (internal-function-to-be-figured-out ctrct
id id