From 94eb2277b7c4c383670ff97066242a440486c166 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sat, 11 Aug 2012 09:55:15 -0500 Subject: [PATCH] adjust 'raco planet structure's implementation so it matches recent changes to the fold-plt-archive function --- collects/planet/util.rkt | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) diff --git a/collects/planet/util.rkt b/collects/planet/util.rkt index eff9aa7c0a..9c1a614e39 100644 --- a/collects/planet/util.rkt +++ b/collects/planet/util.rkt @@ -443,19 +443,12 @@ (parameterize ([current-directory target]) (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) (fold-plt-archive plt-file void void - (λ (l _) (on-dir (location->path l))) - (λ (l fip _) (on-file (location->path l) fip)) + (λ (l _) (on-dir l)) + (λ (l fip _) (on-file l fip)) (void))) ;; hash-tree ::= (hash-table [string -o> (union string hash-tree)])