diff options
author | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 01:35:30 +0200 |
---|---|---|
committer | Alex AUVOLAT <alex.auvolat@ens.fr> | 2014-05-25 01:35:30 +0200 |
commit | 101ab9ca8c3e026592f648de202f8f2b62644474 (patch) | |
tree | b3acefe5d5201a7b45d4dd916c95bb69da3e5a81 /src/example.ml | |
parent | 8109ab47f06c12b1ca1317d0077b88094ce11464 (diff) | |
download | SystemeReseaux-Projet-101ab9ca8c3e026592f648de202f8f2b62644474.tar.gz SystemeReseaux-Projet-101ab9ca8c3e026592f648de202f8f2b62644474.zip |
Compatibility
Diffstat (limited to 'src/example.ml')
-rw-r--r-- | src/example.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/example.ml b/src/example.ml index 7b6f23e..2aade1f 100644 --- a/src/example.ml +++ b/src/example.ml @@ -76,7 +76,7 @@ module Example (K : Kahn.S) = struct let main2 : int K.process = (delay K.new_channel()) >>= (fun (qi, qo) -> - (fib_rec 50 7 qo) >>= + (fib_rec 53 7 qo) >>= (fun () -> K.get qi)) end |