The Trunk: SystemReporter-nice.36.mcz

Previous Topic Next Topic
 
classic Classic list List threaded Threaded
1 message Options
Reply | Threaded
Open this post in threaded view
|

The Trunk: SystemReporter-nice.36.mcz

commits-2
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"]
  !