diff options
| author | herbelin | 2003-10-01 10:34:40 +0000 |
|---|---|---|
| committer | herbelin | 2003-10-01 10:34:40 +0000 |
| commit | 3748cc2fadadc4a27fef01144d9c78ee640e2672 (patch) | |
| tree | 6f7b49aa84b274ff8126533bcef2bbbbfe260d3d | |
| parent | 89a82fa99972ce5cbcd6aca93294f5dea3f30a26 (diff) | |
cosmetique
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@4510 85f007b7-540e-0410-9357-904b9bb8a0f7
| -rw-r--r-- | interp/symbols.ml | 16 |
1 files changed, 8 insertions, 8 deletions
diff --git a/interp/symbols.ml b/interp/symbols.ml index dac0223777..3ddb8644ff 100644 --- a/interp/symbols.ml +++ b/interp/symbols.ml @@ -131,7 +131,7 @@ let declare_delimiters scope key = if sc.delimiters <> None && Options.is_verbose () then begin let old = out_some sc.delimiters in Options.if_verbose - warning ("Overwritting previous delimiter key "^old^" in scope "^scope) + warning ("Overwritting previous delimiting key "^old^" in scope "^scope) end; let sc = { sc with delimiters = Some key } in scope_map := Stringmap.add scope sc !scope_map; @@ -380,25 +380,25 @@ type symbol_token = WhiteSpace of int | String of string let split str = let push_token beg i l = - if beg == i then l else String (String.sub str beg (i - beg)) :: l + if beg = i then l else String (String.sub str beg (i - beg)) :: l in let push_whitespace beg i l = if beg = i then l else WhiteSpace (i-beg) :: l in let rec loop beg i = if i < String.length str then - if str.[i] == ' ' then - push_token beg i (loop_on_whitespace (succ i) (succ i)) + if str.[i] = ' ' then + push_token beg i (loop_on_whitespace (i+1) (i+1)) else - loop beg (succ i) + loop beg (i+1) else push_token beg i [] and loop_on_whitespace beg i = if i < String.length str then if str.[i] <> ' ' then - push_whitespace beg i (loop i (succ i)) + push_whitespace beg i (loop i (i+1)) else - loop_on_whitespace beg (succ i) + loop_on_whitespace beg (i+1) else push_whitespace beg i [] in @@ -447,7 +447,7 @@ let declare_ref_arguments_scope ref = (* Printing *) let pr_delimiters_info = function - | None -> str "No delimiter key" + | None -> str "No delimiting key" | Some key -> str "Delimiting key is " ++ str key let classes_of_scope sc = |