Commit 88656f37 authored by POTTIER Francois's avatar POTTIER Francois
Browse files


parent de68e474
......@@ -167,6 +167,8 @@ let interface grammar = [
(* Writing the interface to a file. *)
let write grammar () =
(* We have a dependency on [TokenType], which takes care of the case
where [token_type_mode] is [TokenTypeOnly]. *)
assert (Settings.token_type_mode <> Settings.TokenTypeOnly);
let mli = open_out (Settings.base ^ ".mli") in
let module P = Printer.Make (struct
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment