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

Propagate srcloc information in wrap-expr/c from syntax/contract (#1418)

Browse Source
This commit is contained in:
Alexis King 2016-09-12 15:06:57 -07:00 committed by Ryan Culpepper
parent a01cf359eb
commit 6e6056b9b8
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
racket/collects/syntax/contract.rkt
View File

@ -56,12 +56,13 @@
#:source [source #f]) #:source [source #f])
(let ([expr-name (or expr-name #'#f)] (let ([expr-name (or expr-name #'#f)]
[source (or source #'#f)]) [source (or source #'#f)])
#`(contract #,ctc-expr (quasisyntax/loc expr
(contract #,ctc-expr
#,expr #,expr
#,positive #,positive
#,negative #,negative
#,expr-name #,expr-name
#,source))) #,source))))
(define (get-source-expr source ctx) (define (get-source-expr source ctx)
(cond [(eq? source 'use-site) (cond [(eq? source 'use-site)