Nicolas Cellier uploaded a new version of SystemReporter to project The Trunk:
http://source.squeak.org/trunk/SystemReporter-nice.36.mcz==================== Summary ====================
Name: SystemReporter-nice.36
Author: nice
Time: 10 June 2017, 5:57:23.049423 pm
UUID: 39920c72-ab26-4596-bd3f-41ab4d481980
Ancestors: SystemReporter-eem.35
Massively replace ifNotNilDo: by ifNotNil:
We don't need two different selectors to do a single thing.
=============== Diff against SystemReporter-eem.35 ===============
Item was changed:
----- Method: SystemReporter>>reportVM: (in category 'reporting') -----
reportVM: aStream
self header: 'Virtual Machine' on: aStream.
aStream
nextPutAll: (Smalltalk vm vmFileName); cr;
nextPutAll: (Smalltalk vm vmVersion); cr.
Smalltalk vm buildDate
+ ifNotNil: [:string | aStream nextPutAll: string; cr].
- ifNotNilDo: [:string | aStream nextPutAll: string; cr].
[Smalltalk vm platformSourceVersion
+ ifNotNil: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]]
- ifNotNilDo: [:v | aStream nextPutAll: 'platform sources revision ', v; cr]]
on: Warning do: ["unsupported primitive"].
[Smalltalk vm interpreterSourceVersion
+ ifNotNil: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]]
- ifNotNilDo: [:v | aStream nextPutAll: 'VMMaker versionString ', v; cr]]
on: Warning do: ["unsupported primitive"].
[Smalltalk vm interpreterClass
+ ifNotNil: [:string | aStream nextPutAll: string; cr].
- ifNotNilDo: [:string | aStream nextPutAll: string; cr].
Smalltalk vm cogitClass
+ ifNotNil: [:string | aStream nextPutAll: string; cr]
- ifNotNilDo: [:string | aStream nextPutAll: string; cr]
] on: Error do: ["unsupported primitives"]
!