added note

svn: r1603
2005-12-12 23:29:40 +00:00 · 2005-12-12 23:29:40 +00:00 · 5b1f62332d
commit 5b1f62332d
parent 812ea0e9ca
1 changed files with 4 additions and 1 deletions
--- 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