From dba1112cd9f8d6f25675b0d30854ed3b8f235963 Mon Sep 17 00:00:00 2001 From: "Kartik K. Agaram" Date: Sun, 31 Aug 2014 11:20:28 -0700 Subject: 90 --- mu.arc | 10 +++++----- 1 file 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)) -- cgit 1.4.1-2-gfad0