diff options
| author | gareuselesinge | 2013-10-10 11:22:49 +0000 |
|---|---|---|
| committer | gareuselesinge | 2013-10-10 11:22:49 +0000 |
| commit | 4e13159efc009d8f534a3502124a1b8148407b24 (patch) | |
| tree | aca63bbd6c68471da9546bce159cf75cfc82b104 /lib/util.ml | |
| 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.ml')
| -rw-r--r-- | lib/util.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/lib/util.ml b/lib/util.ml index 755d4657d5..bc6a1ceac5 100644 --- a/lib/util.ml +++ b/lib/util.ml @@ -123,7 +123,7 @@ let delayed_force f = f () (* Misc *) type ('a, 'b) union = ('a, 'b) CSig.union = Inl of 'a | Inr of 'b -type ('a, 'b) seek = ('a, 'b) CSig.seek = Stop of 'a | Next of 'b +type 'a until = 'a CSig.until = Stop of 'a | Cont of 'a (*s interruption *) |