From c6313368d3719e507eba4216a4fc4ea9f30db576 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Fri, 21 Mar 2014 13:57:16 +0100
Subject: Retab files ; start work on networked implementation.

---
 src/primes.ml | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'src/primes.ml')

diff --git a/src/primes.ml b/src/primes.ml
index e0eeed7..924f7d3 100644
--- a/src/primes.ml
+++ b/src/primes.ml
@@ -25,7 +25,7 @@ module Primes (K : Kahn.S) = struct
   let rec primes (qi : int in_port) : unit process =
     (get qi) >>= (fun v ->
       if v <> -1 then begin
-        Format.printf "%d@." v;
+        io_write ((string_of_int v)^"\n");
         (delay new_channel ()) >>=
         (fun (qi2, qo2) -> doco [ filter v qi qo2 ; primes qi2 ])
       end else return ())
@@ -36,7 +36,7 @@ module Primes (K : Kahn.S) = struct
 
 end
 
-module Eng = Kahn.Pipe
+module Eng = Kahn.Seq
 module P = Primes(Eng)
 
 let () = P.K.run P.main
-- 
cgit v1.2.3