eliminating some params from the make system; trying to introduce caching

js-assembler/package.rkt

@@ -257,7 +257,7 @@ MACHINE.modules[~s] =
     (void))
   
   
-  (define (after-visit-src src ast stmts)
+  (define (after-visit-src src)
     (cond
       [(UninterpretedSource? src)
        (void)]
@@ -327,7 +327,7 @@ MACHINE.modules[~s] =
             (fprintf op "(MACHINE, function() { "))
           
           ;; after
-          (lambda (src ast stmts)
+          (lambda (src)
             (fprintf op " }, FAIL, PARAMS);"))
           
           ;; last

make/make-structs.rkt

@@ -55,10 +55,7 @@
                             (U Expression #f)
                             (Listof Statement)
                             -> Void)]
-   [after-module-statements : (Source
-                               (U Expression #f)
-                               (Listof Statement)
-                               -> Void)]
+   [after-module-statements : (Source -> Void)]
    [after-last : (-> Void)])
   #:mutable)
 
@@ -70,7 +67,7 @@
      (when (and ast (expression-module-path ast))
        (printf "debug build configuration: visiting ~s\n"
                (expression-module-path ast))))
-   (lambda (src ast stmt)
+   (lambda (src)
      (void))
    (lambda ()
      (void))))

make/make.rkt

@@ -182,6 +182,6 @@
                (define end-time (current-inexact-milliseconds))
                (fprintf (current-timing-port) "  computing dependencies: ~a milliseconds\n" (- end-time start-time))
                (loop (append new-dependencies (rest sources)))
-               (after-module-statements this-source ast stmts))])))
+               (after-module-statements this-source))])))
 
        (follow-dependencies (map wrap-source sources))])))