From edfb7a4c9ad3a57f66e5fe14572fe16f86ad2d6c Mon Sep 17 00:00:00 2001
From: Dmitry Boulytchev <dboulytchev@gmail.com>
Date: Sun, 25 Feb 2018 17:23:11 +0300
Subject: [PATCH] Fixed Driver.ml

---
 src/Driver.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/Driver.ml b/src/Driver.ml
index 4082ccbab..67dd012d7 100644
--- a/src/Driver.ml
+++ b/src/Driver.ml
@@ -6,6 +6,7 @@ let parse infile =
     (object
        inherit Matcher.t s
        inherit Util.Lexers.decimal s
+       inherit Util.Lexers.ident ["read"; "write"] s
        inherit Util.Lexers.skip [
 	 Matcher.Skip.whitespaces " \t\n";
 	 Matcher.Skip.lineComment "--";
@@ -18,7 +19,6 @@ let parse infile =
 let main =
   try
     let interpret  = Sys.argv.(1) = "-i"  in
-    let stack      = Sys.argv.(1) = "-s"  in
     let infile     = Sys.argv.(2) in
     match parse infile with
     | `Ok prog ->