From cfdc482cb8a084facbbee6c3dd8ba1b5688a4239 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Sun, 8 Apr 2007 21:39:12 +0000
Subject: [PATCH] some filename tweaks for windows

svn: r5891

original commit: 4cf75fbb65d01e78d110c4fa3f04b3bad73317a0
---
 collects/mzlib/sandbox.ss | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/collects/mzlib/sandbox.ss b/collects/mzlib/sandbox.ss
index 9515b8a..27f77db 100644
--- a/collects/mzlib/sandbox.ss
+++ b/collects/mzlib/sandbox.ss
@@ -509,8 +509,12 @@
              [reqs (cond [(not requires) '()]
                          [(not (list? requires))
                           (error 'make-evaluator "bad requires: ~e" requires)]
-                         [else (map (lambda (r) (if (pair? r) r `(file ,r)))
-                                    requires)])])
+                         [else
+                          (map (lambda (r)
+                                 (if (or (pair? r) (symbol? r))
+                                   r
+                                   `(file ,(path->string (simplify-path* r)))))
+                               requires)])])
          (make-evaluator* (init-for-language lang)
                           (require-perms lang reqs)
                           (lambda () (build-program lang reqs input-program))))]