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();"]
[(PushEnvironment? stmt)
(if (= (PushEnvironment-n stmt) 0)
""
(format "M.e.push(~a);" (string-join
(build-list (PushEnvironment-n stmt)
(lambda: ([i : Natural])
(if (PushEnvironment-unbox? stmt)
"[undefined]"
"undefined")))
", ")))]
(cond [(= (PushEnvironment-n stmt) 0)
""]
[(PushEnvironment-unbox? stmt)
(format "M.e.push(~a);" (string-join
(build-list (PushEnvironment-n stmt)
(lambda: ([i : Natural])
"[undefined]"))
", "))]
[else
(format "M.e.length+=~a;" (PushEnvironment-n stmt))])]
[(PopEnvironment? stmt)
(let: ([skip : OpArg (PopEnvironment-skip stmt)])
(cond
@ -551,7 +552,7 @@ EOF
(cond
#;[(current-emit-debug-trace?)
(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))
assembled)]
[else