From d66d6eacc5b2a34eab988fbe282350fe53237cc6 Mon Sep 17 00:00:00 2001 From: Robby Findler Date: Thu, 27 Mar 2014 10:34:17 -0500 Subject: [PATCH] fix dumb mistake in 093fba97d93781f9bd9caef8fcb2028cc38dd34f --- .../drracket/drracket/private/eval-helpers.rkt | 6 +++--- 1 file changed, 3 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 1a139263ee..fd4be3d03d 100644 --- a/pkgs/drracket-pkgs/drracket/drracket/private/eval-helpers.rkt +++ b/pkgs/drracket-pkgs/drracket/drracket/private/eval-helpers.rkt @@ -71,10 +71,11 @@ (compile-context-preservation-enabled (prefab-module-settings-full-trace? settings)) (compile-enforce-module-constants (prefab-module-settings-enforce-module-constants settings)) + (define path->pkg-cache (make-hash)) (when (prefab-module-settings-compilation-on? settings) (define open-pkgs (for/fold ([s (set)]) ([path (in-list currently-open-files)]) - (define pkg (path->pkg path)) + (define pkg (path->pkg path #:cache path->pkg-cache)) (if (and pkg (memq 'write (file-or-directory-permissions (pkg-directory pkg)))) @@ -85,13 +86,12 @@ (define skip-path? (let* ([cd (find-collects-dir)] [sd (find-share-dir)] - [path->pkg-cache (make-hash)] [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 path->pkg-cache)]) + (let ([pkg (path->pkg p #:cache path->pkg-cache)]) (and pkg (not (set-member? open-pkgs pkg)) (file-stamp-in-paths p (list (pkg-directory pkg)))))))))