Starting to develop FCF in SM

This commit is contained in:
Dmitry Boulytchev 2019-09-29 02:35:04 +03:00
parent ee1d5c08ec
commit c3e6d4c76d
4 changed files with 62 additions and 55 deletions

View file

@ -56,7 +56,7 @@ let main =
let output =
if interpret
then Language.eval prog input
else [] (* SM.run (SM.compile prog) input *) (* TODO! *)
else SM.run (SM.compile prog) input
in
List.iter (fun i -> Printf.printf "%d\n" i) output
| `Fail er -> Printf.eprintf "Error: %s\n" er