THEN
module Loc = Camlp4.PreCast.Loc
-
-DEFINE D(x) = ignore(x);
-
-DEFINE MM(v,l) = Memory.register v (Loc.to_string (l))
-let () = Memory.schedule_stats ()
-
+DEFINE D_IGNORE_(e1,e2) = (let () = e1 in ();e2)
+DEFINE D_IF_(e1,e2) = e1
ELSE
+DEFINE D_IGNORE_(e1,e2) = (e2)
-DEFINE D(x) = ();
-DEFINE MM(v,l) = ()
-
-END (* IFDEF DEBUG *)
+DEFINE D_IF_(e1,e2) = e2
-IFDEF PROFILE
-THEN DEFINE P(x) = ignore(x);
-ELSE DEFINE P(x) = ();
END (* IFDEF DEBUG *)