Fixed compilation error.

This commit is contained in:
Podkopaev Anton 2018-03-06 18:10:19 +03:00
parent e56efaa9b7
commit 61a7b7b2ce
2 changed files with 2 additions and 4 deletions

View file

@ -14,7 +14,7 @@ let parse infile =
] s
end
)
(ostap (!(Language.parse) -EOF))
(ostap (!(Language.Stmt.parse) -EOF))
let main =
try

View file

@ -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"