Commits

camlspotter committed 45c4901

run interface

Comments (0)

Files changed (1)

ocaml/parsertest.ml

   let parse = new Plparser.rules in
   try
     match Token.Parser.run parse#implementation stream with
-    | Result.Ok v -> (Obj.magic v : Xparsetree.structure)
+    | Result.Ok (v, _st') -> (Obj.magic v : Xparsetree.structure)
     | Result.Error (pos, s) -> 
         Format.eprintf "%a: syntax error: %s@." Position.Region.format pos s;
         raise Exit
   let parse = new Plparser.rules in
   try
     match Token.Parser.run parse#interface stream with
-    | Result.Ok v -> (Obj.magic v : Xparsetree.signature)
+    | Result.Ok (v, _st') -> (Obj.magic v : Xparsetree.signature)
     | Result.Error (pos, s) -> 
         Format.eprintf "%a: syntax error: %s@." Position.Region.format pos s;
         raise Exit