The Trunk: Collections-ul.339.mcz

Levente Uzonyi uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-ul.339.mcz

==================== Summary ====================

Name: Collections-ul.339
Author: ul
Time: 15 March 2010, 4:53:56.284 am
UUID: 556fddfd-0f27-1d4c-91c7-a3d7745f80cf
Ancestors: Collections-ul.338

- added missing negation

=============== Diff against Collections-ul.338 ===============

Item was changed:
  ----- Method: ArrayedCollection class>>newFromStream: (in category 'instance creation') -----
  newFromStream: s
  "Only meant for my subclasses that are raw bits and word-like.  For quick unpack form the disk."
 
  | len |
+ (self isPointers or: [ self isWords not ]) ifTrue: [ ^self ].
- (self isPointers or: [ self isWords ]) ifTrue: [ ^self ].
  s next = 16r80 ifTrue: [
  "A compressed format.  Could copy what BitMap does, or use a
  special sound compression format.  Callers normally compress their own way."
  ^self error: 'not implemented' ].
  s skip: -1.
  len := s nextInt32.
  ^s nextWordsInto: (self basicNew: len)!