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

src/action.ml

@@ -148,9 +148,6 @@ let filenames action =
 let keywords action =
   action.keywords
 
-let print f action =
-  Printer.print_expr f action.expr
-
 let has_syntaxerror action =
   KeywordSet.mem SyntaxError (keywords action)
 

src/action.mli

@@ -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
 

src/coqBackend.ml

@@ -208,7 +208,7 @@ module Run (T: sig end) = struct
       if Settings.coq_no_actions then
         fprintf f "()"
       else
-        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";