diff options
| author | Xavier Leroy <xavier.leroy@inria.fr> | 1999-10-14 13:40:47 +0000 |
|---|---|---|
| committer | Xavier Leroy <xavier.leroy@inria.fr> | 1999-10-14 13:40:47 +0000 |
| commit | 6b108b89e7e7619dedc44fec1f3d9a95ac2463dd (patch) | |
| tree | f686049db43850cd3e3bdf6840eb9f45444af4c3 | |
| parent | 80f97bdb91baa7bdfc4bc95b4443006cf4902b63 (diff) | |
Cacher l'implementation de count pour eviter une sur-optimisation par ocamlopt
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@2423 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
| -rw-r--r-- | stdlib/stream.mli | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/stream.mli b/stdlib/stream.mli index 0e353f7c3..fdd8d6f5d 100644 --- a/stdlib/stream.mli +++ b/stdlib/stream.mli @@ -64,7 +64,7 @@ val peek : 'a t -> 'a option;; val junk : 'a t -> unit;; (* Remove the first element of the stream, possibly unfreezing it before. *) -external count : 'a t -> int = "%field0";; +val count : 'a t -> int;; (* Return the current count of the stream elements, i.e. the number of the stream elements discarded. *) |