Commit 071b032e authored by POTTIER Francois's avatar POTTIER Francois
Browse files

Removed [Action.print], which was used only once. (Inlined there.)

parent 2352844c
......@@ -148,9 +148,6 @@ let filenames action =
let keywords action =
let print f action =
Printer.print_expr f action.expr
let has_syntaxerror action =
KeywordSet.mem SyntaxError (keywords action)
......@@ -63,9 +63,6 @@ val filenames: t -> string list
(** [keywords a] is the set of keywords used in the semantic action [a]. *)
val keywords: t -> KeywordSet.t
(** [print f a] prints [a] to channel [f]. *)
val print: out_channel -> t -> unit
(** [from_stretch s] builds an action out of a textual piece of code. *)
val from_stretch: Stretch.t -> t
......@@ -208,7 +208,7 @@ module Run (T: sig end) = struct
if Settings.coq_no_actions then
fprintf f "()"
Action.print f (Production.action prod);
Printer.print_expr f (Action.to_il_expr (Production.action prod));
fprintf f "\n)\n");
fprintf f " end.\n\n";
Supports Markdown
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