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

Add some missing calls to `normalize-path'.

Browse Source 
svn: r5509
This commit is contained in:
Mike Sperber 2007-01-30 19:01:56 +00:00
parent 59a3c3ca7d
commit b47ca09dc5
2 changed files with 4 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/drscheme/private/debug.ss
View File

@ -311,7 +311,8 @@ profile todo:
(λ () (open-and-highlight-in-file src-to-display))) (λ () (open-and-highlight-in-file src-to-display)))
(write-special note (current-error-port)) (write-special note (current-error-port))
(display #\space (current-error-port)))) (display #\space (current-error-port))))
(display (path->string (find-relative-path (current-directory) src)) (display (path->string (find-relative-path (current-directory)
(normalize-path src)))
(current-error-port)) (current-error-port))
(let ([line (srcloc-line src-to-display)] (let ([line (srcloc-line src-to-display)]
[col (srcloc-column src-to-display)] [col (srcloc-column src-to-display)]

4
collects/drscheme/private/unit.ss
View File

@ -1338,7 +1338,7 @@ module browser threading seems wrong.
(if (equal? f1 f2) (if (equal? f1 f2)
(loop (cdr p1) (cdr p2) (+ i 1)) (loop (cdr p1) (cdr p2) (+ i 1))
i))])))] i))])))]
[exp (reverse (explode-path fn))] [exp (reverse (explode-path (normalize-path fn)))]
[other-exps [other-exps
(filter (filter
(λ (x) (and x (λ (x) (and x
@ -1346,7 +1346,7 @@ module browser threading seems wrong.
(map (λ (other-tab) (map (λ (other-tab)
(let ([fn (send (send other-tab get-defs) get-filename)]) (let ([fn (send (send other-tab get-defs) get-filename)])
(and fn (and fn
(reverse (explode-path fn))))) (reverse (explode-path (normalize-path fn))))))
tabs))] tabs))]
[size [size
(let loop ([other-exps other-exps] (let loop ([other-exps other-exps]