suzanne.soy/whalesong
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

continuing to optimize

Browse Source
This commit is contained in:
Danny Yoo 2011-09-03 20:05:22 -04:00
parent df20eb4ee5
commit 28dbb9a74a
1 changed files with 11 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

18
js-assembler/assemble.rkt
View File

@ -395,12 +395,8 @@ EOF
(: assemble-statement (UnlabeledStatement -> String)) (: assemble-statement (UnlabeledStatement -> String))
;; Generates the code to assemble a statement. ;; Generates the code to assemble a statement.
(define (assemble-statement stmt) (define (assemble-statement stmt)
(string-append (define assembled
(if (current-emit-debug-trace?) (cond
(format "if (typeof(window.console) !== 'undefined' && typeof(console.log) === 'function') { console.log(~s);\n}"
(format "~a" stmt))
"")
(cond
[(DebugPrint? stmt) [(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) [(AssignImmediateStatement? stmt)
@ -516,7 +512,15 @@ EOF
val-string))] val-string))]
[(Comment? stmt) [(Comment? stmt)
;; TODO: maybe comments should be emitted as JavaScript comments. ;; TODO: maybe comments should be emitted as JavaScript comments.
""]))) ""]))
(cond
[(current-emit-debug-trace?)
(string-append
(format "if (typeof(window.console) !== 'undefined' && typeof(console.log) === 'function') { console.log(~s);\n}"
(format "~a" stmt))
assembled)]
[else
assembled]))
(define-predicate natural? Natural) (define-predicate natural? Natural)