* Seal the representation of states

[tatoo.git] / src / naive_tree.ml

diff --git a/src/naive_tree.ml b/src/naive_tree.ml
index 38421e0..3cefe18 100644 (file)
--- a/src/naive_tree.ml
+++ b/src/naive_tree.ml
@@ -211,7 +211,7 @@ first_child=%a; next_sibling=%a; parent=%a }"
        Expat.final psr;
        let root = List.hd ctx.stack in
        root.next_sibling <- nil;
-       let a = Array.create ctx.current_preorder nil in
+       let a = Array.make ctx.current_preorder nil in
        let rec loop n =
          if n != nil then
            begin
@@ -244,7 +244,7 @@ first_child=%a; next_sibling=%a; parent=%a }"
       Expat.Expat_error e -> error e parser_
 
   let parse_file fd =
-    let buffer = String.create 4096 in
+    let buffer = String.make 4096 '\000' in
     let parser_, finalize = create_parser () in
     let rec loop () =
       let read = input fd buffer 0 4096 in