fix a corner case for `find-relative-path'

2011-09-16 18:02:48 -06:00 · 2011-09-16 18:02:48 -06:00 · 5d10dceaf5
commit 5d10dceaf5
parent 6401b30399
1 changed files with 3 additions and 1 deletions
--- a/collects/racket/path.rkt
+++ b/collects/racket/path.rkt
@ -144,7 +144,9 @@
        (let loop ([dir (cdr dir)]
                   [file (cdr file)])
          (cond [(null? dir) (if (null? file) filename (apply build-path file))]
-                [(null? file) (apply build-path (map (lambda (x) 'up) dir))]
+                [(null? file) (apply build-path/convention-type 
+				     (path-convention-type filename)
+				     (map (lambda (x) 'up) dir))]
                [(equal? (car dir) (car file))
                 (loop (cdr dir) (cdr file))]
                [else