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