From 94d61b9e96434350123dd9d9d86f126233d0b6ac Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Sun, 25 Aug 2013 06:17:31 -0600 Subject: [PATCH] adjust DrRacket to not compile files in installation's "share" This rule supplements the old (but now less applicable) rule to never add debugging-compiled files in the main installation's "collects" directory. Note that the new rule does not prevent compilation in main-distribution packages that are linked, as in the development mode set up by `make' in the Racet repository's top-level directory. I think that's probably ok, since the intent of the check is mainly just to not write to shared installation spaces, which shouldn't be an issue for development mode. --- .../drracket/drracket/private/eval-helpers.rkt | 8 +++++--- 1 file changed, 5 insertions(+), 3 deletions(-) diff --git a/pkgs/drracket-pkgs/drracket/drracket/private/eval-helpers.rkt b/pkgs/drracket-pkgs/drracket/drracket/private/eval-helpers.rkt index f9ee323d9e..13d2526bd5 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/eval-helpers.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/eval-helpers.rkt @@ -84,9 +84,11 @@ (log-info "DrRacket: enabling bytecode-file compilation for package ~s" pkg)) (define skip-path? (let* ([cd (find-collects-dir)] - [no-dirs (if cd - (list (CACHE-DIR) cd) - (list (CACHE-DIR)))]) + [sd (find-share-dir)] + [no-dirs (append + (list (CACHE-DIR)) + (if cd (list cd) null) + (if sd (list sd) null))]) (λ (p) (or (file-stamp-in-paths p no-dirs) (let ([pkg (path->pkg p)]) (and pkg