Use cons instead of append for inserstions by default.

2 files changed, 4 insertions, 4 deletions

diff --git a/src/vytree.ml b/src/vytree.ml
index 1f046dc..8c64fc6 100644
--- a/src/vytree.ml
+++ b/src/vytree.ml
@@ -22,7 +22,7 @@ let children_of_node node = node.children
 
 let insert_immediate node name data =
     let new_node = make name data in
-    let children' = node.children @ [new_node] in
+    let children' = new_node :: node.children in
     { node with children = children' }
 
 let delete_immediate node name =
@@ -30,7 +30,7 @@ let delete_immediate node name =
     { node with children = children' }
 
 let adopt node child =
-    { node with children = (node.children @ [child]) }
+    { node with children = child :: node.children }
 
 let replace node child =
     let children = node.children in
diff --git a/test/vyconf_tree_test.ml b/test/vyconf_tree_test.ml
index bf9f982..3e9a0e0 100644
--- a/test/vyconf_tree_test.ml
+++ b/test/vyconf_tree_test.ml
@@ -28,7 +28,7 @@ let test_insert_multiple_children test_ctxt =
     let node' = insert () node ["foo"] () in
     let node'' = insert () node' ["bar"] () in
     assert_equal (children_of_node node'')
-                 [make "foo" (); make "bar" ()]
+                 [make "bar" (); make "foo" ()]
 
 (* Inserting a child at a two-item path creates a tree
    two levels deep *)
@@ -51,7 +51,7 @@ let test_list_children test_ctxt =
     let node = make "root" () in
     let node' = insert () node ["foo"] () in
     let node'' = insert () node' ["bar"] () in
-    assert_equal (list_children node'') ["foo"; "bar"]
+    assert_equal (list_children node'') ["bar"; "foo"]
 
 (* Deleting a child, well, deletes it *)
 let test_delete_immediate_child test_ctxt =