st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-27 17:18:48 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed Driver and

Browse source 
SM
This commit is contained in:
Dmitry Boulytchev 2018-02-25 15:02:30 +03:00
parent 1996d0e0cb
commit 9e3803ce7b
2 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/Driver.ml
View file

@ -21,7 +21,7 @@ let main =
let stack = Sys.argv.(1) = "-s" in
let infile = Sys.argv.(2) in
match parse infile with
| `Ok ((_, stmt) as prog) ->
| `Ok prog ->
let rec read acc =
try
let r = read_int () in
@ -33,7 +33,7 @@ let main =
let output =
if interpret
then Language.eval prog input
else SM.eval (SM.compile prog) input
else SM.run (SM.compile prog) input
in
List.iter (fun i -> Printf.printf "%d\n" i) output
| `Fail er -> Printf.eprintf "Syntax error: %s\n" er