diff options
| author | Damien Doligez <damien.doligez-inria.fr> | 2002-07-23 14:12:03 +0000 |
|---|---|---|
| committer | Damien Doligez <damien.doligez-inria.fr> | 2002-07-23 14:12:03 +0000 |
| commit | 37bf95c248f7f8e9f0f2557224837e530c428e93 (patch) | |
| tree | 1fe95869eaf97ba5888bb1f2a7163a4d6770d4f3 /stdlib/queue.ml | |
| parent | 30fdb7585514c6557ad38b87f8bfe079c322edc4 (diff) | |
detabisation
git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@5029 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
Diffstat (limited to 'stdlib/queue.ml')
| -rw-r--r-- | stdlib/queue.ml | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/stdlib/queue.ml b/stdlib/queue.ml index 5a08721f5..096d7141d 100644 --- a/stdlib/queue.ml +++ b/stdlib/queue.ml @@ -113,8 +113,8 @@ let copy q = let rec copy cell = if cell == tail then tail' else { - content = cell.content; - next = copy cell.next + content = cell.content; + next = copy cell.next } in tail'.next <- copy tail.next; @@ -135,7 +135,7 @@ let iter f q = let rec iter cell = f cell.content; if cell != tail then - iter cell.next in + iter cell.next in iter tail.next let fold f accu q = @@ -146,9 +146,9 @@ let fold f accu q = let rec fold accu cell = let accu = f accu cell.content in if cell == tail then - accu + accu else - fold accu cell.next in + fold accu cell.next in fold accu tail.next let transfer q1 q2 = |