include/log.ml

   1 IFNDEF LOG__ML__
   2 THEN
   3 DEFINE LOG__ML__
   4 let __ x = Logger.log x
   5 (*  Format.fprintf !Logger.logger_output x *)
   6 ;;
   7 IFNDEF NLOG
   8 THEN
   9
  10 DEFINE LOG(e) = (e)
  11
  12 ELSE
  13
  14 DEFINE LOG(e) = ()
  15
  16 END
  17
  18
  19
  20
  21 END