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

[hannes at gwydiondylan.org]

Author: hannes
Date: Sun Oct  1 19:30:28 2006
New Revision: 10913

Modified:
   trunk/fundev/sources/dylan/stretchy-vector.dylan
Log:
Job: fd
*removed superfluous and wrong type check for fill value in limited stretchy vectors:
  * it should have checked whether collection-fill(vector) is of element-type(vector)
  * it is already checked in stretchy-vector-element-setter (only defined for specified type in limited-stretchy-vector-minus-constructor macro)

Modified: trunk/fundev/sources/dylan/stretchy-vector.dylan
==============================================================================
--- trunk/fundev/sources/dylan/stretchy-vector.dylan	(original)
+++ trunk/fundev/sources/dylan/stretchy-vector.dylan	Sun Oct  1 19:30:28 2006
@@ -217,10 +217,6 @@
          => (new-size :: <integer>)
   check-nat(new-size);
   let size = size(vector);
-  unless (new-size <= size)
-    // expected to fail when #f is incompatible with element-type
-    check-type(#f, element-type(vector))
-  end unless;
   trusted-size(vector) := new-size;
 end method size-setter;