[Gd-chatter] r10803 - trunk/fundev/sources/dylan

[cgay at gwydiondylan.org]

Author: cgay
Date: Sat Jun 17 23:44:55 2006
New Revision: 10803

Modified:
   trunk/fundev/sources/dylan/deque.dylan
Log:
bug: 7315
reverse! was broken for <deque>s with an even number of elements.


Modified: trunk/fundev/sources/dylan/deque.dylan
==============================================================================
--- trunk/fundev/sources/dylan/deque.dylan	(original)
+++ trunk/fundev/sources/dylan/deque.dylan	Sat Jun 17 23:44:55 2006
@@ -394,7 +394,7 @@
   let rep = deque.representation;
   let rep-first-index = rep.first-index;
   let rep-last-index = rep.last-index;
-  let stopping-index = floor/(rep-first-index + rep-last-index, 2);
+  let stopping-index = ceiling/(rep-first-index + rep-last-index, 2);
   for (i :: <integer> from rep-first-index below stopping-index,
        j :: <integer> from rep-last-index by -1)
     let tmp = island-deque-element(rep, i);