Eliot Miranda uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-eem.911.mcz==================== Summary ====================
Name: Collections-eem.911
Author: eem
Time: 14 September 2020, 11:03:02.426231 am
UUID: 28806f32-6ba9-4ef5-b940-571d50d3f942
Ancestors: Collections-eem.910
Correct the redirect logc so that it is the Transcript, and not any old TranscriptStream, that gets redirected to stdout when the redirectToStdOut preference is set Fix a regression in the redefinition of endEntry (forgot to send reset).
=============== Diff against Collections-eem.910 ===============
Item was changed:
----- Method: TranscriptStream>>endEntry (in category 'stream extensions') -----
endEntry
"Display all the characters since the last endEntry, and reset the stream"
self lock critical:
+ [(self == Transcript and: [self class redirectToStdOut])
+ ifTrue:
+ [FileStream stdout nextPutAll: self contents; flush]
+ ifFalse:
+ [self changed: (self class forceUpdate
- [self changed: (self class forceUpdate
ifTrue: [#appendEntry]
+ ifFalse: [#appendEntryLater])].
+ self reset]!
- ifFalse: [#appendEntryLater])]!
Item was removed:
- ----- Method: TranscriptStream>>nextPut: (in category 'stream extensions') -----
- nextPut: anObject
- self target == self ifFalse: [self target nextPut: anObject]. "delegated to stdout"
- ^ super nextPut: anObject.!
Item was removed:
- ----- Method: TranscriptStream>>nextPutAll: (in category 'stream extensions') -----
- nextPutAll: aCollection
- self target == self ifFalse: [self target nextPutAll: aCollection]. "delegated to stdout"
- ^ super nextPutAll: aCollection.!
Item was changed:
----- Method: TranscriptStream>>target (in category 'stream extensions') -----
target
+ ^(self == Transcript and: [self class redirectToStdOut])
-
- ^ self class redirectToStdOut
ifTrue: [FileStream stdout]
ifFalse: [self]!