From 61a7b7b2ce888ce685da0afc09b152878a7e0205 Mon Sep 17 00:00:00 2001 From: Podkopaev Anton Date: Tue, 6 Mar 2018 18:10:19 +0300 Subject: [PATCH] Fixed compilation error. --- src/Driver.ml | 2 +- src/SM.ml | 4 +--- 2 files changed, 2 insertions(+), 4 deletions(-) diff --git a/src/Driver.ml b/src/Driver.ml index 67dd012d7..643762517 100644 --- a/src/Driver.ml +++ b/src/Driver.ml @@ -14,7 +14,7 @@ let parse infile = ] s end ) - (ostap (!(Language.parse) -EOF)) + (ostap (!(Language.Stmt.parse) -EOF)) let main = try diff --git a/src/SM.ml b/src/SM.ml index dac11c9de..f5df49412 100644 --- a/src/SM.ml +++ b/src/SM.ml @@ -32,7 +32,7 @@ let eval _ = failwith "Not yet implemented" Takes an input stream, a program, and returns an output stream this program calculates *) -let run i p = let (_, (_, _, o)) = eval ([], (Syntax.Expr.empty, i, [])) p in o +let run i p = let (_, (_, _, o)) = eval ([], (Language.Expr.empty, i, [])) p in o (* Stack machine compiler @@ -42,5 +42,3 @@ let run i p = let (_, (_, _, o)) = eval ([], (Syntax.Expr.empty, i, [])) p in o stack machine *) let compile _ = failwith "Not yet implemented" - -