From 93ee97c3adccd7d0ea86ba8deee5a299b34cf1e2 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Marco=20T=C3=BAlio=20Pimenta=20Gontijo?=
 <marcotmarcot@gmail.com>
Date: Mon, 1 Oct 2012 10:39:09 -0300
Subject: [PATCH] Accept indexes for construction.

---
 Scilab/Interpreter.hs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/Scilab/Interpreter.hs b/Scilab/Interpreter.hs
index 9c3b5a5..4d69d6d 100644
--- a/Scilab/Interpreter.hs
+++ b/Scilab/Interpreter.hs
@@ -52,7 +52,9 @@ exec (CAttr (RVI var [ix]) expr)
       $ const
       $ M.insert
         var
-        (Number (typeOld && typeNew) $ old V.// [(ix_, V.head new)])
+        (Number (typeOld && typeNew)
+          $ (old V.++ V.replicate (ix_ - V.length old) 0)
+            V.// [(ix_, V.head new)])
         vars
 exec (CAttr (RVI {}) _) = error "exec (CAttr (RVI {}) _)"
 exec (CExpr expr) = void $ eval expr