This commit is contained in:
Podkopaev Anton 2018-03-06 18:46:57 +03:00
parent 57ccfa2352
commit 77ec064c5c

View file

@ -28,11 +28,11 @@ let eval _ = failwith "Not yet implemented"
(* Top-level evaluation
val run : int list -> prg -> int list
val run : prg -> int list -> int list
Takes an input stream, a program, and returns an output stream this program calculates
Takes a program, an input stream, and returns an output stream this program calculates
*)
let run i p = let (_, (_, _, o)) = eval ([], (Language.Expr.empty, i, [])) p in o
let run p i = let (_, (_, _, o)) = eval ([], (Language.Expr.empty, i, [])) p in o
(* Stack machine compiler