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

avoiding apply

Browse Source
This commit is contained in:
Danny Yoo 2012-02-17 14:57:23 -05:00
parent 872d72ed2b
commit d0bc25c83a
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
js-assembler/assemble-perform-statement.rkt
View File

@ -74,7 +74,11 @@
",")))]
[(InstallClosureValues!? op)
"M.e.push.apply(M.e,M.p.closedVals);"]
(format "M.e.push(~a);"
(string-join (build-list (InstallClosureValues!-n op)
(lambda: ([i : Natural])
(format "M.p.closedVals[~a]" i)))
","))]
[(RestoreEnvironment!? op)
"M.e=M.e[M.e.length-2].slice(0);"]