From bc902e72daab1228867102b1d5fedb74ce3a0ea1 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Tue, 1 Nov 2011 10:52:27 -0400 Subject: [PATCH] patch for windows --- parser/path-rewriter.rkt | 16 ++++++++++++---- 1 file changed, 12 insertions(+), 4 deletions(-) diff --git a/parser/path-rewriter.rkt b/parser/path-rewriter.rkt index 0e7df35..067c0e5 100644 --- a/parser/path-rewriter.rkt +++ b/parser/path-rewriter.rkt @@ -5,7 +5,8 @@ racket/path racket/contract racket/list - racket/runtime-path) + racket/runtime-path + racket/string) @@ -36,22 +37,29 @@ [(within-whalesong-path? a-path) (string->symbol (string-append "whalesong/" - (path->string + (my-path->string (find-relative-path normal-whalesong-path a-path))))] [(within-collects? a-path) (string->symbol (string-append "collects/" - (path->string + (my-path->string (find-relative-path collects-path a-path))))] [(within-root-path? a-path) (string->symbol (string-append "root/" - (path->string + (my-path->string (find-relative-path (current-root-path) a-path))))] [else #f]))) + +;; Like path->string, but I force the path separator to be '/' rather than the platform +;; specific one. +(define (my-path->string a-path) + (string-join (map path->string (explode-path a-path)) "/")) + + (define (within-root-path? a-path)