still annotating and trying to figure out where the time is going

js-assembler/package.rkt

@@ -244,14 +244,16 @@ MACHINE.modules[~s] =
 
     (fprintf op "\n// ** Visiting ~a\n" (source-name src))
     (define temporary-output-port (open-output-bytes))
-    (time
+    (define start-time (current-inexact-milliseconds))
     (cond
      [(UninterpretedSource? src)
       (fprintf temporary-output-port "~a" (UninterpretedSource-datum src))]
      [else
       (assemble/write-invoke stmts temporary-output-port)
-       (fprintf temporary-output-port "(MACHINE, function() { ")]))
+      (fprintf temporary-output-port "(MACHINE, function() { ")])
+    (define stop-time (current-inexact-milliseconds))
     (displayln (source-name src))
+    (printf "Took: ~s milliseconds\n" (- stop-time start-time))
     (displayln (bytes-length (get-output-bytes temporary-output-port)))
     (write-bytes (get-output-bytes temporary-output-port) op)
     (void))

whalesong-helpers.rkt

@@ -85,6 +85,7 @@
 
 (define (build-html-and-javascript f)
   (turn-on-logger!)
+  (define start-time (current-inexact-milliseconds))
   (let-values ([(base filename dir?)
                 (split-path f)])
     (let ([output-js-filename (build-path
@@ -139,6 +140,9 @@
                                 (lambda (op)
                                   (display (get-html-template output-js-filename) op))
                                 #:exists 'replace)
+        (define stop-time (current-inexact-milliseconds))
+
+        (printf "Time taken: ~a milliseconds\n" (- stop-time start-time))
         ))))