From d0bc25c83a163f2ad20f14776ffe5751b34e5837 Mon Sep 17 00:00:00 2001 From: Danny Yoo Date: Fri, 17 Feb 2012 14:57:23 -0500 Subject: [PATCH] avoiding apply --- js-assembler/assemble-perform-statement.rkt | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/js-assembler/assemble-perform-statement.rkt b/js-assembler/assemble-perform-statement.rkt index 952b4f3..ba9b85b 100644 --- a/js-assembler/assemble-perform-statement.rkt +++ b/js-assembler/assemble-perform-statement.rkt @@ -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);"]