Finish adapting to new libxml-tree API

[SXSI/xpathcomp.git] / src / main.ml

diff --git a/src/main.ml b/src/main.ml
index cc14ce2..100d0e4 100644 (file)
--- a/src/main.ml
+++ b/src/main.ml
@@ -140,7 +140,7 @@ let _ =
          ~msg:"Loading file"
          (Tree.load
             ~sample:!Options.sample_factor
-            ~load_text:true)
+            ~load_text:(not !Options.disable_text_collection))
          !Options.input_file
       else
        let v =