continuing to chase after low-hanging fruit.

2011-09-14 22:55:12 -04:00 · 2011-09-14 22:55:12 -04:00 · d4bca31359
commit d4bca31359
parent f51438ad64
1 changed files with 11 additions and 10 deletions
--- a/js-assembler/assemble.rkt
+++ b/js-assembler/assemble.rkt
@ -516,15 +516,16 @@ EOF
      "M.control.pop();"]
     
     [(PushEnvironment? stmt)
-      (if (= (PushEnvironment-n stmt) 0)
-          ""
+      (cond [(= (PushEnvironment-n stmt) 0)
+             ""]
+            [(PushEnvironment-unbox? stmt)
             (format "M.e.push(~a);" (string-join
                                      (build-list (PushEnvironment-n stmt) 
                                                  (lambda: ([i : Natural])
-                                                         (if (PushEnvironment-unbox? stmt)
-                                                             "[undefined]"
-                                                             "undefined")))
-                                           ", ")))]
+                                                               "[undefined]"))
+                                      ", "))]
+            [else
+             (format "M.e.length+=~a;" (PushEnvironment-n stmt))])]
     [(PopEnvironment? stmt)
      (let: ([skip : OpArg (PopEnvironment-skip stmt)])
        (cond