diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1999-02-24 15:21:50 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1999-02-24 15:21:50 +0000 |
| commit | 5038f3cdb6377dfc84e4642b710c1a1949060e1d (patch) | |
| tree | 5d40d3f38506e477142555e1a22fa860236f566c /stdlib/string.ml | |
| parent | 6fb83c93fcf5a7687ebaf084daf3933ff23c22e9 (diff) | |
| download | ocaml-5038f3cdb6377dfc84e4642b710c1a1949060e1d.tar.gz | |
Ajout de Pervasives.ignore. List.remove -> List.remove_ass*
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2304 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/string.ml')
| -rw-r--r-- | stdlib/string.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/stdlib/string.ml b/stdlib/string.ml index ca32cc6e27..e07fd4b60a 100644 --- a/stdlib/string.ml +++ b/stdlib/string.ml @@ -159,10 +159,10 @@ let rindex_from s i c = let contains_from s i c = if i < 0 || i >= length s then invalid_arg "String.contains_from" else - try let _ = index_rec s (length s) i c in true with Not_found -> false;; + try ignore(index_rec s (length s) i c); true with Not_found -> false;; let rcontains_from s i c = if i < 0 || i >= length s then invalid_arg "String.rcontains_from" else - try let _ = rindex_rec s i c in true with Not_found -> false;; + try ignore(rindex_rec s i c); true with Not_found -> false;; let contains s c = s <> "" && contains_from s 0 c;; |