Module Fcl_debug

module Fcl_debug: sig .. end

val level : string Pervasives.ref

val log : Pervasives.out_channel Pervasives.ref

val call : char -> (Pervasives.out_channel -> unit) -> unit

val internal_error : string -> 'a

val fatal_error : string -> 'a

val print_in_assert : bool -> string -> bool