always use "/"s to create the collection "names" that are used for identification

svn: r15600
This commit is contained in:
Eli Barzilay 2009-07-28 14:52:55 +00:00
parent 66ab1f15ff
commit 8117217012

View File

@ -10,6 +10,7 @@
scheme/match
scheme/system
scheme/list
scheme/string
compiler/cm
planet/planet-archives
planet/private/planet-shared
@ -330,7 +331,8 @@
;; file we assume that we generated it rather than another setup-plt
;; process
(define all-ccs (plt-collection-closure all-collections))
(define (cc->name cc) (apply build-path (cc-collection cc)))
(define (cc->name cc)
(string-join (map path->string (cc-collection cc)) "/"))
(define all-names (map cc->name all-ccs))
(define given-names (map cc->name given-ccs))
(define (cc-mark cc) (build-path (cc-path cc) ".setup-plt-marker"))