From eb2c71232c2bf662617fa56e6f3b6ef4fff35126 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 2 Sep 2011 10:54:51 -0400 Subject: [PATCH] trying to trace where the time is going --- js-assembler/package.rkt | 14 ++++++++++---- 1 file changed, 10 insertions(+), 4 deletions(-) diff --git a/js-assembler/package.rkt b/js-assembler/package.rkt index aaaff28..aafeca0 100644 --- a/js-assembler/package.rkt +++ b/js-assembler/package.rkt @@ -241,12 +241,18 @@ MACHINE.modules[~s] = (list->set (source-resources src)))) (fprintf op "\n// ** Visiting ~a\n" (source-name src)) - (cond + (define temporary-output-port (open-output-bytes)) + (time + (cond [(UninterpretedSource? src) - (fprintf op "~a" (UninterpretedSource-datum src))] + (fprintf temporary-output-port "~a" (UninterpretedSource-datum src))] [else - (assemble/write-invoke stmts op) - (fprintf op "(MACHINE, function() { ")])) + (assemble/write-invoke stmts temporary-output-port) + (fprintf temporary-output-port "(MACHINE, function() { ")])) + (displayln (source-name src)) + (displayln (bytes-length (get-output-bytes temporary-output-port))) + (write-bytes (get-output-bytes temporary-output-port) op) + (void)) (define (after-visit-src src ast stmts)