fix a bug in PLTDRPAR

2011-02-17 12:25:36 -06:00 · 2011-02-17 12:25:36 -06:00 · 3cb3b9fa83
commit 3cb3b9fa83
parent 87e637a1cc
1 changed files with 2 additions and 2 deletions
--- a/collects/drracket/drracket.rkt
+++ b/collects/drracket/drracket.rkt
@ -88,11 +88,11 @@
      append
      (map
       (λ (x)
-         (define-values (base name dir) (split-path x))
         (define proc (get-info/full x))
         (if proc
             (map (λ (dirs)
-                    (apply build-path base
+                    (apply build-path 
+                           x
                           (if (list? dirs)
                               dirs
                               (list dirs))))