fixed absolute paths passed to raco

2014-12-30 14:01:54 -06:00 · 2014-12-30 14:01:54 -06:00 · 94defd5fc2
commit 94defd5fc2
parent a4db4a2412
1 changed files with 4 additions and 1 deletions
--- a/raco.rkt
+++ b/raco.rkt
@ -42,7 +42,10 @@
   (for/list ([f files])
     (if (not (directory-exists? f))
         f
-         (parameterize ([current-directory (build-path (current-directory) f)])
+         (parameterize ([current-directory
+                         (if (absolute-path? f)
+                             f
+                             (build-path (current-directory) f))])
           (expand-directory))))))

 (define (expand-directory)