diff options
Diffstat (limited to 'lib/future.ml')
-rw-r--r-- | lib/future.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/future.ml b/lib/future.ml index d8f7b3a94..6001da30d 100644 --- a/lib/future.ml +++ b/lib/future.ml @@ -63,7 +63,7 @@ type 'a assignement = [ `Val of 'a | `Exn of exn | `Comp of 'a computation] let create_delegate () = let c = ref Delegated in c, (fun v -> - assert (!c = Delegated); + assert (!c == Delegated); match v with | `Val v -> c := Val (v, None) | `Exn e -> c := Exn e |