@@ -544,6 +544,12 @@ reduceLoop reduced (cons, program) =
544 reduceCall funs (JSProj obj field) =
544 reduceCall funs (JSProj obj field) =
545 JSProj (reduceCall funs obj) field
545 JSProj (reduceCall funs obj) field
547+ reduceCall funs (JSIndex obj idx) =
548+ JSIndex (reduceCall funs obj) (reduceCall funs idx)
550+ reduceCall funs (JSOp op rhs lhs) =
551+ JSOp op (reduceCall funs rhs) (reduceCall funs lhs)
547 reduceCall funs (JSCond conds) =
553 reduceCall funs (JSCond conds) =
548 JSCond $ map (reduceCall funs *** reduceCall funs) conds
554 JSCond $ map (reduceCall funs *** reduceCall funs) conds