suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

avoid calling pkg-directory so much

Browse Source 
by making the assumption that pkg-directory's results
(for a given input) don't change within a since "Run"
in DrRacket
This commit is contained in:
Robby Findler 2014-04-05 19:31:45 -05:00
parent 481d19fbdd
commit c8f3974a20
1 changed files with 15 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
pkgs/drracket-pkgs/drracket/drracket/private/eval-helpers.rkt
View File

@ -78,11 +78,12 @@
(define pkg (path->pkg path #:cache path->pkg-cache)) (define pkg (path->pkg path #:cache path->pkg-cache))
(if (and pkg (if (and pkg
(memq 'write (memq 'write
(file-or-directory-permissions (pkg-directory pkg)))) (file-or-directory-permissions (pkg-directory/use-cache pkg))))
(set-add s pkg) (set-add s pkg)
s))) s)))
(for ([pkg (in-set open-pkgs)]) (for ([pkg (in-set open-pkgs)])
(log-info "DrRacket: enabling bytecode-file compilation for package ~s" pkg)) (log-info "DrRacket: enabling bytecode-file compilation for package ~s" pkg))
(define skip-path? (define skip-path?
(let* ([cd (find-collects-dir)] (let* ([cd (find-collects-dir)]
[sd (find-share-dir)] [sd (find-share-dir)]
@ -94,7 +95,19 @@
(let ([pkg (path->pkg p #:cache path->pkg-cache)]) (let ([pkg (path->pkg p #:cache path->pkg-cache)])
(and pkg (and pkg
(not (set-member? open-pkgs pkg)) (not (set-member? open-pkgs pkg))
(file-stamp-in-paths p (list (pkg-directory pkg))))))))) (file-stamp-in-paths p (list (pkg-directory/use-cache pkg)))))))))
(define pkg-directory-cache (make-hash))
(define (pkg-directory/use-cache pkg)
(cond
[(hash-ref pkg-directory-cache pkg #f)
=>
values]
[else
(define ans (pkg-directory pkg))
(hash-set! pkg-directory-cache pkg ans)
ans]))
(define extra-compiled-file-path (define extra-compiled-file-path
(case (prefab-module-settings-annotations settings) (case (prefab-module-settings-annotations settings)
[(none) (build-path "compiled" "drracket")] [(none) (build-path "compiled" "drracket")]