diff options
author | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-09 12:41:20 +0000 |
---|---|---|
committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-08-09 12:41:20 +0000 |
commit | e16d10ed9f5ae8922b9e2b6838baef4c6d75d492 (patch) | |
tree | 4b501c11a6547da6814d574c13f796414655f7d1 /lib/future.ml | |
parent | 5053ccc561dd1416a788b5e000049b7e51826a7e (diff) |
checker validation fixed w.r.t. Futures
still not working, it complains about the universe constraint
set...
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16691 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/future.ml')
-rw-r--r-- | lib/future.ml | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/future.ml b/lib/future.ml index b1b960718..9333089fb 100644 --- a/lib/future.ml +++ b/lib/future.ml @@ -29,11 +29,11 @@ let _ = Errors.register_handler (function (* Val is not necessarily a final state, so the computation restarts from the state stocked into Val *) type 'a comp = + | Delegated + | Dropped | Closure of (unit -> 'a) | Val of 'a * Dyn.t option | Exn of exn - | Delegated - | Dropped type 'a computation = 'a comp ref |