diff options
| author |  gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-10 11:22:49 +0000 |
|---|---|---|
| committer | gareuselesinge <gareuselesinge@85f007b7-540e-0410-9357-904b9bb8a0f7> | 2013-10-10 11:22:49 +0000 |
| commit | 4e13159efc009d8f534a3502124a1b8148407b24 (patch) | |
| tree | aca63bbd6c68471da9546bce159cf75cfc82b104 /lib/util.mli | |
| parent | a8e4bc45bad59f24cddc6c10be83be2d14c1bc57 (diff) | |
Clib: fold_left_until added to CList
CStack just calls it to implement fold_until.
CSig.seek renamed CSig.until, since there is no seek function.
git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/coq/trunk@16867 85f007b7-540e-0410-9357-904b9bb8a0f7
Diffstat (limited to 'lib/util.mli')
| -rw-r--r-- | lib/util.mli | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/lib/util.mli b/lib/util.mli index 8dec93e30..62db3225e 100644 --- a/lib/util.mli +++ b/lib/util.mli @@ -97,8 +97,8 @@ val delayed_force : 'a delayed -> 'a type ('a, 'b) union = ('a, 'b) CSig.union = Inl of 'a | Inr of 'b (** Union type *) -type ('a, 'b) seek = ('a, 'b) CSig.seek = Stop of 'a | Next of 'b -(** Type isomorphic to union used for browsable structures. *) +type 'a until = 'a CSig.until = Stop of 'a | Cont of 'a +(** Used for browsable-until structures. *) (** {6 ... } *) (** Coq interruption: set the following boolean reference to interrupt Coq |