[Pkg] The Trunk: Kernel-cmm.845.mcz

commits at source.squeak.org commits at source.squeak.org
Fri May 2 19:24:37 UTC 2014


Chris Muller uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-cmm.845.mcz

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

Name: Kernel-cmm.845
Author: cmm
Time: 2 May 2014, 2:23:45.137 pm
UUID: b0fee9bf-c59e-4560-9a57-eddd2e055838
Ancestors: Kernel-cwp.844

- #flush after printing error information, and before image immediately exits, otherwise it won't always get written.
- Add accessor for #negativeInfinity so I don't have to create new Float via Float infinity negated when all I want to do is compare.
- #asBytesDescription for Float too because this is a very useful printing method for even things other than byte counts (and we should think of a better name for it too).

=============== Diff against Kernel-cwp.844 ===============

Item was changed:
  ----- Method: Error>>printVerboseOn: (in category 'printing') -----
  printVerboseOn: aStream 
  	aStream
+ 		nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ;
+ 		cr ;
+ 		nextPutAll: 'The time is ', DateAndTime now asString ;
+ 		cr.
- "		 setToEnd ;"
- 		 nextPutAll: 'vvvvvvvvvvvvvvvvvv ' , self description , ' vvvvvvvvvvvvvvvvvv' ;
- 		 cr ;
- 		 nextPutAll: 'The time is ', DateAndTime now asString ;
- 		 cr.
  	"Allow applications to optionally print extra details without overriding a base package."
  	(self respondsTo: #printDetailsOn:) ifTrue: [ self printDetailsOn: aStream ].
  	aStream
+ 		nextPutAll: self signalerContext longStack ;
+ 		cr ;
+ 		nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ;
+ 		cr ;
+ 		flush!
- 		 nextPutAll: self signalerContext longStack ;
- 		 cr ;
- 		 nextPutAll: '^^^^^^^^^^^^^^^^^^ ' , self description , ' ^^^^^^^^^^^^^^^^^^' ;
- 		 cr!

Item was added:
+ ----- Method: Float class>>negativeInfinity (in category 'constants') -----
+ negativeInfinity
+ 	"Answer the value used to represent a negative infinity."
+ 	^ NegativeInfinity!

Item was added:
+ ----- Method: Float>>asBytesDescription (in category 'printing') -----
+ asBytesDescription
+ 	^ self asInteger asBytesDescription!



More information about the Packages mailing list