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/stream.ml | |
| parent | 6fb83c93fcf5a7687ebaf084daf3933ff23c22e9 (diff) | |
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/stream.ml')
| -rw-r--r-- | stdlib/stream.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/stream.ml b/stdlib/stream.ml index 1a707dec6..8b4dd6841 100644 --- a/stdlib/stream.ml +++ b/stdlib/stream.ml @@ -120,7 +120,7 @@ let empty s = let iter f strm = let rec do_rec () = match peek strm with - Some a -> junk strm; let _ = f a in do_rec () + Some a -> junk strm; ignore(f a); do_rec () | None -> () in do_rec () |