diff options
Diffstat (limited to 'src/primes.ml')
-rw-r--r-- | src/primes.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/primes.ml b/src/primes.ml index 21d979a..a95fb64 100644 --- a/src/primes.ml +++ b/src/primes.ml @@ -26,7 +26,7 @@ module Primes (K : Kahn.S) = struct (get qi) >>= (fun v -> if v <> -1 then begin - Format.eprintf "%d@." v; + K.output @@ Format.sprintf "%d@." v; (delay new_channel ()) >>= (fun (qi2, qo2) -> doco [ filter v qi qo2 ; primes qi2 ]) end |