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

adjust 'raco planet structure's implementation so it matches

Browse Source 
recent changes to the fold-plt-archive function
This commit is contained in:
Robby Findler 2012-08-11 09:55:15 -05:00
parent 3cd4efe201
commit 94eb2277b7
1 changed files with 2 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/planet/util.rkt
View File

@ -443,19 +443,12 @@
(parameterize ([current-directory target]) (parameterize ([current-directory target])
(unpack plt-file))) (unpack plt-file)))
(define (location->path loc)
(match loc
['same (build-path 'same)]
[(list 'same path) path]
[(list other _) (error (format "bad location ~a (illegal in PLaneT packages)" other))]
[other (error (format "bad location ~a" other))]))
(define (foreach-planet-archive plt-file on-dir on-file) (define (foreach-planet-archive plt-file on-dir on-file)
(fold-plt-archive plt-file (fold-plt-archive plt-file
void void
void void
(λ (l _) (on-dir (location->path l))) (λ (l _) (on-dir l))
(λ (l fip _) (on-file (location->path l) fip)) (λ (l fip _) (on-file l fip))
(void))) (void)))
;; hash-tree ::= (hash-table [string -o> (union string hash-tree)]) ;; hash-tree ::= (hash-table [string -o> (union string hash-tree)])