[Pkg] The Trunk: Collections-eem.804.mcz

commits at source.squeak.org commits at source.squeak.org
Sat Aug 25 22:03:51 UTC 2018


Eliot Miranda uploaded a new version of Collections to project The Trunk:
http://source.squeak.org/trunk/Collections-eem.804.mcz

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

Name: Collections-eem.804
Author: eem
Time: 25 August 2018, 3:03:35.102786 pm
UUID: e4fae5d7-2676-4f01-bc05-21ac3946d248
Ancestors: Collections-eem.803

Fix TranscriptStream class>>redirectToStdOut: on "platforms" where stdout is not necessarily available (Windows).  The existing implementation raises an error on start up on these "platforms".

=============== Diff against Collections-dtl.802 ===============

Item was changed:
  ----- Method: Dictionary>>fillFrom:with: (in category 'private') -----
  fillFrom: aCollection with: aBlock
  	"Evaluate aBlock with each of aCollections's elements as the argument.  
  	Collect the resulting values into self. Answer self."
  
+ 	aCollection isSequenceable
+ 		ifTrue:
+ 			[aCollection associationsDo:
+ 				[ :element | self add: (aBlock value: element)]]
+ 		ifFalse:
+ 			[aCollection keysAndValuesDo:
+ 				[ :key :value | self at: key put: (aBlock value: value)]]!
- 	aCollection keysAndValuesDo: [ :key :value |
- 		self at: key put: (aBlock value: value) ]!

Item was changed:
  ----- Method: TranscriptStream class>>redirectToStdOut: (in category 'preferences') -----
  redirectToStdOut: aBoolean
+ 	"In setting up redirection, first remove all dependents that are stdout,
+ 	 which may include stale files from the last session.  Then add a dependency
+ 	 only if asked to redirect to stdout. Blithely doing
+ 		Transcript removeDependent: FileStream stdout
+ 	 raises an error if stdout is unavailable."
+ 	Transcript dependents do:
+ 		[:dep|
+ 		 (dep isStream and: [dep name = #stdout]) ifTrue:
+ 			[Transcript removeDependent: dep]].
+ 	(RedirectToStdOut := aBoolean) ifTrue:
+ 		[Transcript addDependent: FileStream stdout]!
- 
- 	(RedirectToStdOut := aBoolean)
- 		ifTrue: [Transcript addDependent: FileStream stdout]
- 		ifFalse: [Transcript removeDependent: FileStream stdout].!



More information about the Packages mailing list