Documentation

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6406 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02

1 files changed, 4 insertions, 4 deletions

diff --git a/stdlib/buffer.ml b/stdlib/buffer.ml
index c17c87f94..cafec4444 100644
--- a/stdlib/buffer.ml
+++ b/stdlib/buffer.ml
@@ -105,9 +105,9 @@ let closing = function
   | _ -> assert false;;
 
 (* opening and closing: open and close characters, typically ( and )
-   k balance of opening and closing chars
-   s the string where we are searching
-   start the index where we start the search *)
+   k: balance of opening and closing chars
+   s: the string where we are searching
+   start: the index where we start the search. *)
 let advance_to_closing opening closing k s start =
   let rec advance k i lim =
     if i >= lim then raise Not_found else
@@ -128,7 +128,7 @@ let advance_to_non_alpha s start =
     | _ -> i in
   advance start (String.length s);;
 
-(* We are just at the beginning of an ident in s, starting at start *)
+(* We are just at the beginning of an ident in s, starting at start. *)
 let find_ident s start =
   match s.[start] with
   (* Parenthesized ident ? *)