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

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

@ -128,6 +128,8 @@
[else [else
(let ([start-line (or (lw-line lw) line)] (let ([start-line (or (lw-line lw) line)]
[start-column (or (lw-column lw) col)]) [start-column (or (lw-column lw) col)])
(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) (let-values ([(last-line first-column last-column)
(add-spans/obj (lw-e lw) start-line start-column)]) (add-spans/obj (lw-e lw) start-line start-column)])
(unless (lw-line lw) (unless (lw-line lw)
@ -141,7 +143,7 @@
(set-lw-column! lw new-col) (set-lw-column! lw new-col)
(set-lw-column-span! lw (- last-column new-col))) (set-lw-column-span! lw (- last-column new-col)))
(values last-line first-column last-column)))])) (values last-line first-column last-column))))]))
(define (add-spans/obj e line col) (define (add-spans/obj e line col)
(cond (cond
[(string? e) [(string? e)