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

fix use before definition bug from c8f3974a2

Browse Source
This commit is contained in:
Robby Findler 2014-04-09 19:26:46 -05:00
parent f175490639
commit fe2c796c41
1 changed files with 11 additions and 11 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -73,6 +73,17 @@
(compile-enforce-module-constants (prefab-module-settings-enforce-module-constants settings)) (compile-enforce-module-constants (prefab-module-settings-enforce-module-constants settings))
(define path->pkg-cache (make-hash)) (define path->pkg-cache (make-hash))
(when (prefab-module-settings-compilation-on? settings) (when (prefab-module-settings-compilation-on? settings)
(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 open-pkgs (define open-pkgs
(for/fold ([s (set)]) ([path (in-list currently-open-files)]) (for/fold ([s (set)]) ([path (in-list currently-open-files)])
(define pkg (path->pkg path #:cache path->pkg-cache)) (define pkg (path->pkg path #:cache path->pkg-cache))
@ -97,17 +108,6 @@
(not (set-member? open-pkgs pkg)) (not (set-member? open-pkgs pkg))
(file-stamp-in-paths p (list (pkg-directory/use-cache 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")]