This commit is contained in:
Podkopaev Anton 2018-03-06 18:37:17 +03:00
parent 7678510c1f
commit 57ccfa2352

View file

@ -94,9 +94,9 @@ type t = Stmt.t
(* Top-level evaluator (* Top-level evaluator
eval : int list -> t -> int list eval : t -> int list -> int list
Takes a program and its input stream, and returns the output stream Takes a program and its input stream, and returns the output stream
*) *)
let eval i p = let eval p i =
let _, _, o = Stmt.eval (Expr.empty, i, []) p in o let _, _, o = Stmt.eval (Expr.empty, i, []) p in o