From 5d10dceaf5838a3fc1c2d9a65039813c9e8ec5e6 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Fri, 16 Sep 2011 18:02:48 -0600 Subject: [PATCH] fix a corner case for `find-relative-path' --- collects/racket/path.rkt | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) diff --git a/collects/racket/path.rkt b/collects/racket/path.rkt index d30a9ddc7a..b31b6c4442 100644 --- 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