From 42c897a75f669cc61c5831136d9257d014136aa3 Mon Sep 17 00:00:00 2001 From: Dan Holtby Date: Tue, 22 Oct 2019 22:15:45 -0400 Subject: [PATCH] fix for (setup) when (current-library-collection-links) contains hash tables --- racket/collects/setup/setup-core.rkt | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) mode change 100644 => 100755 racket/collects/setup/setup-core.rkt diff --git a/racket/collects/setup/setup-core.rkt b/racket/collects/setup/setup-core.rkt old mode 100644 new mode 100755 index 79911df43f..4e063b5c5b --- a/racket/collects/setup/setup-core.rkt +++ b/racket/collects/setup/setup-core.rkt @@ -521,11 +521,12 @@ #:when (directory-exists? (build-path cp collection))) (cc! (list collection) #:path (build-path cp collection)))] [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 - [coll-sym - ;; A single collection - (cc! (string-split "/" (symbol->string coll-sym)) #:path dir)] + [coll-sym + ;; A single collection + (cc! (map string->path (string-split (symbol->string coll-sym) "/")) #:path dir)] [(directory-exists? dir) ;; A directory that holds collections: (for ([collection (directory-list dir)]