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

made slightly more robust

Browse Source 
svn: r4318
This commit is contained in:
Robby Findler 2006-09-13 02:13:08 +00:00
parent d59b2d5cbd
commit 8f55d3f6c3
1 changed files with 9 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

12
collects/setup/getinfo.ss
View File

@ -164,9 +164,15 @@
(sort unsorted compare-directories))))
(define (compare-directories a b)
(let-values ([(base1 name1 dir?1) (split-path a)]
[(base2 name2 dir?2) (split-path b)])
(bytes<? (path->bytes name1) (path->bytes name2))))
(bytes<? (dir->sort-key a) (dir->sort-key b)))
;; dir->sort-key : path -> bytes
;; extracts the name of the directory, dropping any "."s it finds at the ends.
(define (dir->sort-key path)
(let-values ([(base name dir?) (split-path path)])
(cond
[(eq? name 'same) (dir->sort-key base)]
[else (path->bytes name)])))
(provide/contract
(get-info ((listof path-or-string?) . -> . (or/c info? boolean?)))