focusing on the make system and trying to figure out how to introduce caching into it.

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))

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)))