From a02d2f10f0fb937b9c20ce1bc554e66439d1508e Mon Sep 17 00:00:00 2001 From: Anton Podkopaev Date: Wed, 7 Mar 2018 14:54:02 +0300 Subject: [PATCH] Fixed comment. --- src/SM.ml | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/SM.ml b/src/SM.ml index 98b00a9ba..5521f6ec5 100644 --- a/src/SM.ml +++ b/src/SM.ml @@ -41,7 +41,7 @@ let rec eval ((stack, ((st, i, o) as c)) as conf) = function 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