st/lama_byterun
1
0
Fork 0
mirror of https://github.com/ProgramSnail/Lama.git synced 2025-12-06 23:08:46 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

Fixed Driver.ml

Browse source
This commit is contained in:
Dmitry Boulytchev 2018-02-25 17:23:11 +03:00
parent 30537ff6ba
commit edfb7a4c9a
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/Driver.ml
View file

@ -6,6 +6,7 @@ let parse infile =
(object (object
inherit Matcher.t s inherit Matcher.t s
inherit Util.Lexers.decimal s inherit Util.Lexers.decimal s
inherit Util.Lexers.ident ["read"; "write"] s
inherit Util.Lexers.skip [ inherit Util.Lexers.skip [
Matcher.Skip.whitespaces " \t\n"; Matcher.Skip.whitespaces " \t\n";
Matcher.Skip.lineComment "--"; Matcher.Skip.lineComment "--";
@ -18,7 +19,6 @@ let parse infile =
let main = let main =
try try
let interpret = Sys.argv.(1) = "-i" in let interpret = Sys.argv.(1) = "-i" in
let stack = Sys.argv.(1) = "-s" in
let infile = Sys.argv.(2) in let infile = Sys.argv.(2) in
match parse infile with match parse infile with
| `Ok prog -> | `Ok prog ->