DEFINE D(x) = ignore(x);
-
-DEFINE MM(v,l) = Memory.register v (Loc.to_string (l))
+DEFINE MM(v,l) = (let ____x = v in (Memory.register ____x (Loc.to_string (l)));____x)
let () = Memory.schedule_stats ()
ELSE
DEFINE D(x) = ();
-DEFINE MM(v,l) = ()
+DEFINE MM(v,l) = (v)
END (* IFDEF DEBUG *)