- input_file, directory, includes, use_prelude, anon_vars, targets
+ input_file,
+ debug_flag, directory, includes, use_prelude, anon_vars, targets
+
+(* Create the debug function. *)
+let debug fs =
+ let display str = if debug_flag then prerr_endline str in
+ ksprintf display fs