Restored bottom up run

[SXSI/xpathcomp.git] / debug.ml

diff --git a/debug.ml b/debug.ml
index 39b4fcf..7ae4e75 100644 (file)
--- a/debug.ml
+++ b/debug.ml
@@ -18,10 +18,12 @@ THEN
 module Loc = Camlp4.PreCast.Loc
 
 DEFINE D_IGNORE_(e1,e2) = (let () = e1 in ();e2)
+DEFINE D_IF_(e1,e2) = e1
 
 ELSE
 DEFINE D_IGNORE_(e1,e2) = (e2)
 
+DEFINE D_IF_(e1,e2) = e2
 
 END (* IFDEF DEBUG *)