PR#3755 indentation trompeuse

git-svn-id: http://caml.inria.fr/svn/ocaml/trunk@7032 f963ae5c-01c2-4b8c-9fe0-0dff7051ff02
2005-08-26 12:10:47 +00:00 · 2005-08-26 12:10:47 +00:00 · fd7d0c3bfe
parent 1ced22dda7
commit fd7d0c3bfe
1 changed files with 12 additions and 15 deletions
--- a/stdlib/queue.ml
+++ b/stdlib/queue.ml
@ -84,9 +84,7 @@ let top =
  peek

 let take q =
-  if q.length = 0 then
-    raise Empty
-  else
+  if q.length = 0 then raise Empty;
  q.length <- q.length - 1;
  let tail = q.tail in
  let head = tail.next in
@ -165,4 +163,3 @@ let transfer q1 q2 =
    end;
    q2.length <- q2.length + length1;
    q2.tail <- tail1
-