From ba11a02c1d04c2e2423b3d18dc10d229af9bbd09 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Sun, 19 Dec 2010 20:58:40 -0600 Subject: [PATCH] adjust drracket to use setup/dir's find-collects-path instead of the broken, halfway thing is was doing --- collects/drracket/private/module-language.rkt | 12 +++++------- 1 file changed, 5 insertions(+), 7 deletions(-) diff --git a/collects/drracket/private/module-language.rkt b/collects/drracket/private/module-language.rkt index 71d1f568c9..402e7811c0 100644 --- a/collects/drracket/private/module-language.rkt +++ b/collects/drracket/private/module-language.rkt @@ -14,6 +14,7 @@ framework string-constants planet/config + setup/dirs "drsig.rkt" "rep.rkt") @@ -248,13 +249,10 @@ (use-compiled-file-paths)))])) (current-load/use-compiled (make-compilation-manager-load/use-compiled-handler #t)) - (let* ([cd (find-system-path 'collects-dir)] - [no-dirs (list (CACHE-DIR) - (if (relative-path? cd) - (find-executable-path - (find-system-path 'exec-file) - cd) - cd))]) + (let* ([cd (find-collects-dir)] + [no-dirs (if cd + (list (CACHE-DIR) cd) + (list (CACHE-DIR)))]) (manager-skip-file-handler (λ (p) (file-stamp-in-paths p no-dirs))))))))