From f21187248a3c329fdda5eb3f6f5c7273082bf96c Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Tue, 20 Sep 2011 13:22:27 -0600 Subject: [PATCH] fix `raco setup' for a collection that disappears --- collects/setup/setup-unit.rkt | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/collects/setup/setup-unit.rkt b/collects/setup/setup-unit.rkt index 41216584c8..b5dafdf4a9 100644 --- a/collects/setup/setup-unit.rkt +++ b/collects/setup/setup-unit.rkt @@ -866,7 +866,8 @@ (simplify-path (apply build-path p (for/list ([i (cddr c)]) 'up)) #f) ;; relative path => no root needed for checking omits: #f)]) - (not (eq? 'all (omitted-paths dir getinfo omit-root)))) + (and (directory-exists? dir) + (not (eq? 'all (omitted-paths dir getinfo omit-root))))) (or (file-exists? (build-path dir "info.rkt")) (file-exists? (build-path dir "info.ss")))) (hash-set! t a (list b c d e))