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

Changed source-location->string and ->prefix to use

Browse Source 
path->relative-string/library to produce collection and planet-relative source
names.
This commit is contained in:
Carl Eastlund 2011-07-08 01:22:26 -04:00
parent b3136095ea
commit 00a6442712
1 changed files with 6 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
collects/syntax/srcloc.rkt
View File

@ -37,6 +37,9 @@
) )
(require
setup/path-to-relative)
(define (source-location? x) (define (source-location? x)
(process-source-location x good? bad? 'source-location?)) (process-source-location x good? bad? 'source-location?))
@ -163,7 +166,9 @@
(define ((good-string default) x src line col pos span) (define ((good-string default) x src line col pos span)
(format "~a~a" (format "~a~a"
(or src default) (cond
[(path-string? src) (path->relative-string/library src)]
[else (or src default)])
(if line (if line
(if col (if col
(format ":~a.~a" line col) (format ":~a.~a" line col)