suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix a bug in PLTDRPAR

Browse Source
This commit is contained in:
Robby Findler 2011-02-17 12:25:36 -06:00
parent 87e637a1cc
commit 3cb3b9fa83
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/drracket/drracket.rkt
View File

@ -88,11 +88,11 @@
append append
(map (map
(λ (x) (λ (x)
(define-values (base name dir) (split-path x))
(define proc (get-info/full x)) (define proc (get-info/full x))
(if proc (if proc
(map (λ (dirs) (map (λ (dirs)
(apply build-path base (apply build-path
x
(if (list? dirs) (if (list? dirs)
dirs dirs
(list dirs)))) (list dirs))))