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

Set srcloc processing to use syntax-source-module if possible.

Browse Source 
svn: r17706
This commit is contained in:
Carl Eastlund 2010-01-17 18:50:11 +00:00
parent 00d79083e3
commit 19873777e1
1 changed files with 11 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/unstable/srcloc.ss
View File

@ -231,12 +231,22 @@
(define (process-syntax x good bad name)
(process-elements x good bad name
(syntax-source x)
(syntax-get-source x)
(syntax-line x)
(syntax-column x)
(syntax-position x)
(syntax-span x)))
(define (syntax-get-source x)
(cond
[(syntax-source-module x) =>
(lambda (src)
(if (module-path-index? src)
(resolved-module-path-name
(module-path-index-resolve src))
src))]
[else (syntax-source x)]))
(define (process-list x good bad name)
(cond
[(null? x)