From a2f3761addec535bd8dd9c95ef424cd87bf4ec69 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Tue, 6 Sep 2011 14:42:57 -0400 Subject: [PATCH] focusing on the make system and trying to figure out how to introduce caching into it. --- js-assembler/package.rkt | 3 +-- make/make.rkt | 9 +++++---- 2 files changed, 6 insertions(+), 6 deletions(-) diff --git a/js-assembler/package.rkt b/js-assembler/package.rkt index 14391cc..a0c9476 100644 --- a/js-assembler/package.rkt +++ b/js-assembler/package.rkt @@ -253,8 +253,7 @@ MACHINE.modules[~s] = (define (on-visit-src src ast stmts) ;; Record the use of resources on source module visitation... - (set! resources (set-union resources - (list->set (source-resources src)))) + (set! resources (set-union resources (list->set (source-resources src)))) (fprintf op "\n// ** Visiting ~a\n" (source-name src)) (define start-time (current-inexact-milliseconds)) diff --git a/make/make.rkt b/make/make.rkt index 89694d5..3a9a243 100644 --- a/make/make.rkt +++ b/make/make.rkt @@ -23,9 +23,10 @@ [get-module-bytecode ((U String Path Input-Port) -> Bytes)]) -(provide make - current-module-source-compiling-hook - get-ast-and-statements) +(provide make) + + + (: current-module-source-compiling-hook @@ -128,7 +129,7 @@ (: follow-dependencies ((Listof Source) -> Void)) (define (follow-dependencies sources) - (define visited ((inst make-hash Any Boolean))) + (define visited ((inst make-hash Source Boolean))) (: collect-new-dependencies (Source (U False Expression) -> (Listof Source)))