Fixed comment.

This commit is contained in:
Anton Podkopaev 2018-03-07 14:54:02 +03:00 committed by GitHub
parent 9a05e26f2c
commit a02d2f10f0
No known key found for this signature in database
GPG key ID: 4AEE18F83AFDEB23

View file

@ -41,7 +41,7 @@ let rec eval ((stack, ((st, i, o) as c)) as conf) = function
val run : prg -> int list -> 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 p i = let (_, (_, _, o)) = eval ([], (Expr.empty, i, [])) p in o let run p i = let (_, (_, _, o)) = eval ([], (Expr.empty, i, [])) p in o