Permalink
Browse files

Merge pull request #3 from avsm/master

fix Lwt_fiber fast path
  • Loading branch information...
2 parents 8dbab94 + 9a656ba commit 48116cfda0503b9c161d12ee3b33385b9f88825c Jake Donham committed Jun 17, 2011
Showing with 1 addition and 1 deletion.
  1. +1 −1 src/lwt-fiber/lwt_fiber.ml
View
2 src/lwt-fiber/lwt_fiber.ml
@@ -22,11 +22,11 @@ let await t =
match !active_prompt with
| None -> failwith "await called outside start"
| Some p -> p in
- active_prompt := None;
match Lwt.poll t with
| Some v -> v
| None ->
+ active_prompt := None;
Delimcc.shift0 p begin fun k ->
let ready _ =
active_prompt := Some p;

0 comments on commit 48116cf

Please sign in to comment.