X-Git-Url: http://git.nguyen.vg/gitweb/?p=tatoo.git;a=blobdiff_plain;f=src%2Ftree.ml;h=d44755ec4e0d0faa4967c3783d91162f4aafcd51;hp=8f37be5af1546baab5792ed8b7fe9bf070dfe1fd;hb=af9d790ca62e678e8e70ab8d8fa7f804985a75e0;hpb=90ce5857f6cad2ebc753fdbc8e37882a1ff47415

diff --git a/src/tree.ml b/src/tree.ml
index 8f37be5..d44755e 100644
--- a/src/tree.ml
+++ b/src/tree.ml
@@ -104,9 +104,8 @@ sig
   (** Returns the kind of the given node *)
 
   val preorder : t -> node -> int
-  (** Returns the position of a node in pre-order in the tree. The
-    root has preorder 0. [nil] has pre-order [-1].
+  (** [preorder t n] returns the pre-order position of [n] in [t].
+      [preodrder t (root t) == 0] and [preorder t nil < 0].
   *)
-
   val print_node : Format.formatter -> node -> unit
 end