The Trunk: Collections-tfel.704.mcz

Tim Felgentreff uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-tfel.704.mcz

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

Name: Collections-tfel.704
Author: tfel
Time: 6 August 2016, 1:05:41.688734 pm
UUID: b799fb95-1b8e-4ae6-a9ae-3d93dac5b410
Ancestors: Collections-mt.703, Collections-tfel.703

merge with trunk

=============== Diff against Collections-mt.703 ===============

Item was changed:
  ----- Method: String>>< (in category 'comparing') -----
  < aString
  "Answer whether the receiver sorts before aString.
  The collation order is simple ascii (with case differences)."
+ ^(self compare: aString caseSensitive: true) = 1!
-
- ^ (self compare: self with: aString collated: AsciiOrder) = 1!

Item was changed:
  ----- Method: String>><= (in category 'comparing') -----
  <= aString
  "Answer whether the receiver sorts before or equal to aString.
  The collation order is simple ascii (with case differences)."
+ ^(self compare: aString caseSensitive: true) <= 2!
-
- ^ (self compare: self with: aString collated: AsciiOrder) <= 2!

Item was changed:
  ----- Method: String>>> (in category 'comparing') -----
  > aString
  "Answer whether the receiver sorts after aString.
  The collation order is simple ascii (with case differences)."
+ ^(self compare: aString caseSensitive: true) = 3!
-
- ^ (self compare: self with: aString collated: AsciiOrder) = 3!

Item was changed:
  ----- Method: String>>>= (in category 'comparing') -----
  >= aString
  "Answer whether the receiver sorts after or equal to aString.
  The collation order is simple ascii (with case differences)."
+ ^(self compare: aString caseSensitive: true) >= 2!
-
- ^ (self compare: self with: aString collated: AsciiOrder) >= 2!

Item was changed:
  ----- Method: TranscriptStream class>>registerInFlapsRegistry (in category 'class initialization') -----
  registerInFlapsRegistry
  "Register the receiver in the system's flaps registry"
  self environment
  at: #Flaps
+ ifPresent: [:cl | cl registerQuad: {#TranscriptStream. #openMorphicTranscript. 'Transcript' translatedNoop. 'A Transcript is a window usable for logging and debugging; browse references to #Transcript for examples of how to write to it.' translatedNoop}
- ifPresent: [:cl | cl registerQuad: #(TranscriptStream openMorphicTranscript 'Transcript' 'A Transcript is a window usable for logging and debugging; browse references to #Transcript for examples of how to write to it.')
  forFlapNamed: 'Tools']
  !

Item was changed:
  ----- Method: WriteStream>>nextPut: (in category 'accessing') -----
  nextPut: anObject
  "Primitive. Insert the argument at the next position in the Stream
  represented by the receiver. Fail if the collection of this stream is not an
  Array or a String. Fail if the stream is positioned at its end, or if the
  position is out of bounds in the collection. Fail if the argument is not
  of the right type for the collection. Optional. See Object documentation
  whatIsAPrimitive."
 
  <primitive: 66>
+ ((collection class == ByteString) and: [
+ anObject isCharacter and:[anObject isOctetCharacter not]]) ifTrue: [
+ collection _ (WideString from: collection).
+ ^self nextPut: anObject.
+ ].
  position >= writeLimit
  ifTrue: [^ self pastEndPut: anObject]
  ifFalse:
+ [position _ position + 1.
- [position := position + 1.
  ^collection at: position put: anObject]!