(******************************************************************************)
(*  SXSI : XPath evaluator                                                    *)
(*  Kim Nguyen (Kim.Nguyen@nicta.com.au)                                      *)
(*  Copyright NICTA 2008                                                      *)
(*  Distributed under the terms of the LGPL (see LICENCE)                     *)
(******************************************************************************)

(* This file should not be compiled but included with INCLUDE. This requires
   pa_macro.cmo to be loaded (see Makefile)
*)

IFNDEF DEBUG__ML__
THEN
DEFINE DEBUG__ML__

IFDEF DEBUG
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 *)



END (* IFNDEF DEBUG__ML__ *)