diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2004-11-25 00:06:06 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2004-11-25 00:06:06 +0000 |
| commit | 7519fe8f6bf641b0cc259fb3a438ba70c793c342 (patch) | |
| tree | 40fd98cebb6f95f0bd8c6f6614c5df6913995536 /stdlib/set.ml | |
| parent | 71d44d5940601f9fb318842c30940c6303efa2a6 (diff) | |
fusion des bugfixes de 3.08.2
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@6694 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/set.ml')
| -rw-r--r-- | stdlib/set.ml | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/stdlib/set.ml b/stdlib/set.ml index e4ef7a0d9..375fc5d0e 100644 --- a/stdlib/set.ml +++ b/stdlib/set.ml @@ -290,7 +290,7 @@ module Make(Ord: OrderedType) = let rec fold f s accu = match s with Empty -> accu - | Node(l, v, r, _) -> fold f l (f v (fold f r accu)) + | Node(l, v, r, _) -> fold f r (f v (fold f l accu)) let rec for_all p = function Empty -> true |