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

svn: r11323

Browse Source
This commit is contained in:
Eli Barzilay 2008-08-19 05:04:21 +00:00
parent 47521e5ea4
commit 2a16188855
1 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/setup/getinfo.ss
View File

@ -9,9 +9,9 @@
;; get-info : (listof path-or-string) -> info/#f
(define (get-info coll-path)
(let ([coll-path (map (lambda (x) (if (path? x) (path->string x) x))
coll-path)])
(get-info/full (apply collection-path coll-path))))
(get-info/full (apply collection-path
(map (lambda (x) (if (path? x) (path->string x) x))
coll-path))))
;; get-info/full : path -> info/#f
(define (get-info/full dir)