Permalink
Browse files

turning off the current-emit-debug thing for now; it's in hotspot pos…

…ition
  • Loading branch information...
1 parent c69f8fa commit 8209cbbf8b9d856dcb54324963a71c057d048960 Danny Yoo committed Sep 5, 2011
Showing with 3 additions and 2 deletions.
  1. +3 −2 js-assembler/assemble.rkt
View
5 js-assembler/assemble.rkt
@@ -398,7 +398,8 @@ EOF
(define assembled
(cond
[(DebugPrint? stmt)
- (format "MACHINE.params.currentOutputPort.writeDomNode(MACHINE, $('<span/>').text(~a));" (assemble-oparg (DebugPrint-value stmt)))]
+ (format "MACHINE.params.currentOutputPort.writeDomNode(MACHINE, $('<span/>').text(~a));"
+ (assemble-oparg (DebugPrint-value stmt)))]
[(AssignImmediateStatement? stmt)
(let: ([t : (String -> String) (assemble-target (AssignImmediateStatement-target stmt))]
[v : OpArg (AssignImmediateStatement-value stmt)])
@@ -514,7 +515,7 @@ EOF
;; TODO: maybe comments should be emitted as JavaScript comments.
""]))
(cond
- [(current-emit-debug-trace?)
+ #;[(current-emit-debug-trace?)
(string-append
(format "if (typeof(window.console) !== 'undefined' && typeof(console.log) === 'function') { console.log(~s);\n}"
(format "~a" stmt))

0 comments on commit 8209cbb

Please sign in to comment.