(***********************************************************************)
(*
- Time-stamp: <Last modified on 2013-03-04 18:46:09 CET by Kim Nguyen>
+ Time-stamp: <Last modified on 2013-03-04 23:39:28 CET by Kim Nguyen>
*)
open Format
let pp_strike = ppf strike
let pp_subscript = ppf subscript
let pp_superscript = ppf superscript
-let dummy_printer fmt () = ()
+let dummy_printer _ () = ()
let pp_print_list ?(sep=dummy_printer) printer fmt l =
match l with