From 11ca3113365639136cf65a74c345080a9434e69b Mon Sep 17 00:00:00 2001
From: ppedrot <ppedrot@85f007b7-540e-0410-9357-904b9bb8a0f7>
Date: Fri, 27 Sep 2013 19:20:27 +0000
Subject: Removing a bunch of generic equalities.

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16806 85f007b7-540e-0410-9357-904b9bb8a0f7
---
 lib/future.ml | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lib/future.ml')

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
-- 
cgit v1.2.3