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

continuing to chase after low-hanging fruit.

Browse Source
This commit is contained in:
Danny Yoo 2011-09-14 22:55:12 -04:00
parent f51438ad64
commit d4bca31359
1 changed files with 11 additions and 10 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

21
js-assembler/assemble.rkt
View File

@ -516,15 +516,16 @@ EOF
"M.control.pop();"] "M.control.pop();"]
[(PushEnvironment? stmt) [(PushEnvironment? stmt)
(if (= (PushEnvironment-n stmt) 0) (cond [(= (PushEnvironment-n stmt) 0)
"" ""]
(format "M.e.push(~a);" (string-join [(PushEnvironment-unbox? stmt)
(build-list (PushEnvironment-n stmt) (format "M.e.push(~a);" (string-join
(lambda: ([i : Natural]) (build-list (PushEnvironment-n stmt)
(if (PushEnvironment-unbox? stmt) (lambda: ([i : Natural])
"[undefined]" "[undefined]"))
"undefined"))) ", "))]
", ")))] [else
(format "M.e.length+=~a;" (PushEnvironment-n stmt))])]
[(PopEnvironment? stmt) [(PopEnvironment? stmt)
(let: ([skip : OpArg (PopEnvironment-skip stmt)]) (let: ([skip : OpArg (PopEnvironment-skip stmt)])
(cond (cond
@ -551,7 +552,7 @@ EOF
(cond (cond
#;[(current-emit-debug-trace?) #;[(current-emit-debug-trace?)
(string-append (string-append
(format "if (typeof(window.console) !== 'undefined' && typeof(console.log) === 'function') { console.log(~s);\n}" (format "if(typeof(window.console)!=='undefined'&&typeof(console.log)==='function'){console.log(~s);\n}"
(format "~a" stmt)) (format "~a" stmt))
assembled)] assembled)]
[else [else