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

13
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)
"" ""]
[(PushEnvironment-unbox? stmt)
(format "M.e.push(~a);" (string-join (format "M.e.push(~a);" (string-join
(build-list (PushEnvironment-n stmt) (build-list (PushEnvironment-n stmt)
(lambda: ([i : Natural]) (lambda: ([i : Natural])
(if (PushEnvironment-unbox? stmt) "[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