From 90200c30dcac46f63ae7553454389f5dc65a68cc Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 23 Aug 2015 19:10:32 -0700 Subject: [PATCH] compile pollen.rkt and other directory requires --- cache.rkt | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/cache.rkt b/cache.rkt index 9504249..a57f95f 100644 --- a/cache.rkt +++ b/cache.rkt @@ -1,5 +1,5 @@ #lang racket/base -(require racket/path racket/file file/cache sugar/coerce "project.rkt" "world.rkt" "rerequire.rkt" "cache-ns.rkt" "debug.rkt") +(require racket/path racket/file compiler/cm file/cache sugar/coerce "project.rkt" "world.rkt" "rerequire.rkt" "cache-ns.rkt" "debug.rkt") ;; The cache is a hash with paths as keys. ;; The cache values are also hashes, with key/value pairs for that path. @@ -28,17 +28,17 @@ (cons (path->string cp) (file-or-directory-modify-seconds cp))))) path-strings)) path+mod-time-pairs) + (define (key->source-path key) (car (car key))) -(define (update-directory-requires source-path) - (define directory-require-files (get-directory-require-files source-path)) - (and directory-require-files (map dynamic-rerequire directory-require-files)) - (void)) (define (path->hash path) ;; new namespace forces dynamic-require to re-instantiate 'path' ;; otherwise it gets cached in current namespace. + (define drfs (get-directory-require-files path)) + (for-each managed-compile-zo (or drfs null)) + (apply hash (let ([doc-key (world:current-main-export)] [meta-key (world:current-meta-export)])