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

PR 10275

Browse Source 
svn: r15108
This commit is contained in:
Robby Findler 2009-06-07 01:18:56 +00:00
parent 933f578002
commit 90a0a6e524
1 changed files with 16 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

30
collects/redex/private/loc-wrapper.ss
View File

@ -128,20 +128,22 @@
[else
(let ([start-line (or (lw-line lw) line)]
[start-column (or (lw-column lw) col)])
(let-values ([(last-line first-column last-column)
(add-spans/obj (lw-e lw) start-line start-column)])
(unless (lw-line lw)
(set-lw-line! lw line))
(set-lw-line-span! lw (- last-line start-line))
(unless (lw-column lw)
(set-lw-column! lw col))
(let ([new-col (min (lw-column lw)
first-column)])
(set-lw-column! lw new-col)
(set-lw-column-span! lw (- last-column new-col)))
(values last-line first-column last-column)))]))
(when (and start-line ;; if we don't have src loc info, just give up.
start-column)
(let-values ([(last-line first-column last-column)
(add-spans/obj (lw-e lw) start-line start-column)])
(unless (lw-line lw)
(set-lw-line! lw line))
(set-lw-line-span! lw (- last-line start-line))
(unless (lw-column lw)
(set-lw-column! lw col))
(let ([new-col (min (lw-column lw)
first-column)])
(set-lw-column! lw new-col)
(set-lw-column-span! lw (- last-column new-col)))
(values last-line first-column last-column))))]))
(define (add-spans/obj e line col)
(cond
[(string? e)