summaryrefslogtreecommitdiff
path: root/src
diff options
context:
space:
mode:
Diffstat (limited to 'src')
-rw-r--r--src/kahn_stdio.ml4
1 files changed, 4 insertions, 0 deletions
diff --git a/src/kahn_stdio.ml b/src/kahn_stdio.ml
index badf338..234c1d4 100644
--- a/src/kahn_stdio.ml
+++ b/src/kahn_stdio.ml
@@ -107,11 +107,15 @@ module ProtoKahn: S = struct
| GiveTask(td, _) ->
dbg "Got task!";
let t : task = Marshal.from_string td 0 in
+ Format.eprintf "[@?";
t();
+ Format.eprintf "]@?";
| GiveMsgTask(msg, td) ->
dbg "Got msg task!";
let t : msg_task = Marshal.from_string td 0 in
+ Format.eprintf "{@?";
t msg;
+ Format.eprintf "}@?";
| FinalResult(x) ->
dbg "Got result!";
result := Some (Marshal.from_string x 0)