Nicolas Cellier uploaded a new version of Kernel to project The Trunk: http://source.squeak.org/trunk/Kernel-nice.1282.mcz
==================== Summary ====================
Name: Kernel-nice.1282 Author: nice Time: 22 November 2019, 5:54:28.478745 pm UUID: 70d4bc61-04e8-4cfd-befb-1b23f3f13953 Ancestors: Kernel-mt.1281
Let complex print the correct signBit of its imaginary part in case of negativeZero.
Note: the signBit are not preserved upon reinterpretation. That's a problem of representation via arithmetic operation 1 + 2 i because we have this 0.0 - 0.0 -> 0.0 0.0 + (-0.0) -> 0.0 (-0.0) + (-0.0) -> -0.0 (-0.0) - 0.0 -> -0.0
=============== Diff against Kernel-mt.1281 ===============
Item was changed: ----- Method: Complex>>printOn: (in category 'printing') ----- printOn: aStream real printOn: aStream. aStream nextPut: Character space. + imaginary signBit = 0 - 0 <= imaginary ifTrue: [aStream nextPut: $+] ifFalse: [aStream nextPut: $-]. aStream nextPut: Character space. imaginary abs printOn: aStream. aStream nextPut: Character space. aStream nextPut: $i !
Item was changed: ----- Method: Complex>>printOn:showingDecimalPlaces: (in category 'printing') ----- printOn: aStream showingDecimalPlaces: placesDesired real printOn: aStream showingDecimalPlaces: placesDesired. aStream nextPut: Character space. + imaginary signBit = 0 - 0 <= imaginary ifTrue: [aStream nextPut: $+] ifFalse: [aStream nextPut: $-]. aStream nextPut: Character space. imaginary abs printOn: aStream showingDecimalPlaces: placesDesired. aStream nextPut: Character space. aStream nextPut: $i !
packages@lists.squeakfoundation.org