@@ -60,7 +60,7 @@ localVar i = Ident $ "loc" ++ show i
61(@!) :: Exp -> Int -> ArrayIndex
61(@!) :: Exp -> Int -> ArrayIndex
62(@!) target pos =
62(@!) target pos =
63− ArrayIndex target (Lit $ Int (toInteger pos))
63+ ArrayIndex target [Lit $ Int (toInteger pos)]
65(@:=) :: Either ArrayIndex Ident -> Exp -> BlockStmt
65(@:=) :: Either ArrayIndex Ident -> Exp -> BlockStmt
66(@:=) (Right lhs) rhs =
66(@:=) (Right lhs) rhs =