about summary refs log tree commit diff stats
path: root/mu.arc
diff options
context:
space:
mode:
Diffstat (limited to 'mu.arc')
-rw-r--r--mu.arc10
1 files changed, 5 insertions, 5 deletions
diff --git a/mu.arc b/mu.arc
index 75660d15..0b13030c 100644
--- a/mu.arc
+++ b/mu.arc
@@ -285,6 +285,11 @@
                         (assert nil "get on invalid type @base")))
                 aref
                   (array-ref arg.0 (v arg.1))
+                new
+                  (let type (v arg.0)
+                    (if types*.type!array
+                      (new-array type (v arg.1))
+                      (new-scalar type)))
                 reply
                   (do (pop-stack context)
                       (if empty.context (return ninstrs))
@@ -297,11 +302,6 @@
                         (if empty.context (return ninstrs))
                         (++ pc.context))
                       (continue))
-                new
-                  (let type (v arg.0)
-                    (if types*.type!array
-                      (new-array type (v arg.1))
-                      (new-scalar type)))
                 ; else user-defined function
                   (do (push-stack context op)
                       (continue))