From 4a5ca97b0970e191332fb6fb4684a397b93390f5 Mon Sep 17 00:00:00 2001
From: Alex AUVOLAT <alex.auvolat@ens.fr>
Date: Sun, 25 May 2014 01:00:44 +0200
Subject: ./manager -pool-addr mypool -pool-count 16 -my-addr my_addr
 ./example.native

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

(limited to 'src/kahn_seq.ml')

diff --git a/src/kahn_seq.ml b/src/kahn_seq.ml
index ce82117..177d6dd 100644
--- a/src/kahn_seq.ml
+++ b/src/kahn_seq.ml
@@ -19,6 +19,8 @@ module Seq: S = struct
 	let new_channel () =
 		let q = Queue.create () in
 		q, q
+	
+	let output s = Format.printf "%s@?" s
 
 	let put x c =
 		fun cont ->
@@ -64,8 +66,6 @@ module Seq: S = struct
 		fun cont ->
 			e (Some (fun (r : 'a) -> f r cont))
 
-	let bind_io = bind
-		
 	let run e =
 		let ret = ref None in
 		e (Some (fun v -> ret := Some v));
-- 
cgit v1.2.3