From 6521950c86513c1f3eb374083862b9b23f9322a1 Mon Sep 17 00:00:00 2001 From: Tony Garnock-Jones Date: Sun, 29 Apr 2012 08:39:05 -0400 Subject: [PATCH] Use "run" instead of direct access to the stream --- stringstream.ml | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) diff --git a/stringstream.ml b/stringstream.ml index 1884227..1555deb 100644 --- a/stringstream.ml +++ b/stringstream.ml @@ -57,13 +57,13 @@ let rec from_iter f = cache := Some result; result) -let rec iter f (Stream s_f) = - match s_f () with +let rec iter f s = + match run s with | None -> () | Some (v, flush, k) -> (f (v, flush); iter f k) -let rec to_list (Stream f) = - match f () with +let rec to_list s = + match run s with | None -> [] | Some (v, _, k) -> v :: to_list k