From 5b1f62332d5b09ea2914124990176e0deef49005 Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Mon, 12 Dec 2005 23:29:40 +0000 Subject: [PATCH] added note svn: r1603 --- collects/drscheme/private/multi-file-search.ss | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/collects/drscheme/private/multi-file-search.ss b/collects/drscheme/private/multi-file-search.ss index 9232a3247b..f4e7d31594 100644 --- a/collects/drscheme/private/multi-file-search.ss +++ b/collects/drscheme/private/multi-file-search.ss @@ -89,7 +89,10 @@ (λ (x) (and (pair? x) (number? (car x)) (number? (cdr x))))) - (preferences:set-default 'drscheme:multi-file-search:directory #f + (preferences:set-default 'drscheme:multi-file-search:directory + ;; The default is #f because + ;; filesystem-root-list is expensive under Windows + #f (lambda (x) (or (not x) (path? x)))) (preferences:set-un/marshall 'drscheme:multi-file-search:directory