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