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

fix for (setup) when (current-library-collection-links) contains hash tables

Browse Source
This commit is contained in:
Dan Holtby 2019-10-22 22:15:45 -04:00 committed by Matthew Flatt
parent 238cd527f4
commit 42c897a75f
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
racket/collects/setup/setup-core.rkt Normal file → Executable file
View File

@ -521,11 +521,12 @@
#:when (directory-exists? (build-path cp collection))) #:when (directory-exists? (build-path cp collection)))
(cc! (list collection) #:path (build-path cp collection)))] (cc! (list collection) #:path (build-path cp collection)))]
[else ; must be a hash table that simulates a links file: [else ; must be a hash table that simulates a links file:
(for ([(coll-sym dir) (in-hash inst-links)]) (for* ([(coll-sym dir-list) (in-hash inst-links)]
[dir (in-list dir-list)])
(cond (cond
[coll-sym [coll-sym
;; A single collection ;; A single collection
(cc! (string-split "/" (symbol->string coll-sym)) #:path dir)] (cc! (map string->path (string-split (symbol->string coll-sym) "/")) #:path dir)]
[(directory-exists? dir) [(directory-exists? dir)
;; A directory that holds collections: ;; A directory that holds collections:
(for ([collection (directory-list dir)] (for ([collection (directory-list dir)]