Accept indexes for construction.

marcotmarcot · Oct 1, 2012 · 93ee97c · 93ee97c
1 parent 090a0f4
commit 93ee97c
Showing 1 changed file with 3 additions and 1 deletion.
diff --git 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