The Trunk: Kernel-eem.973.mcz

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

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

Name: Kernel-eem.973
Author: eem
Time: 5 January 2016, 5:36:08.334115 pm
UUID: e6c98ae5-bd1c-4d49-b6ae-16e6d94e8c22
Ancestors: Kernel-eem.972

Fix Delay printing and nuke the unused Fix Delay printing and nuke the unused.

Provide short-cuts for inteerPart and fractionPart in Integer given their use in ew.g. creating timestamps.

=============== Diff against Kernel-eem.972 ===============

Item was removed:
- ----- Method: Delay class>>scheduleDelay: (in category 'timer process') -----
- scheduleDelay: aDelay
- "Private. Schedule this Delay."
-
- aDelay resumptionTime: Time millisecondClockValue + aDelay delayDuration.
- "Gary Chambers:  do the above here, via the high priority timer process to avoid rollover bug due to process pre-emption
- since the caller cannot use the AccessProtect semaphore."
- aDelay beingWaitedOn: true.
- ActiveDelay
- ifNil: [ActiveDelay := aDelay]
- ifNotNil: [aDelay resumptionTime < ActiveDelay resumptionTime
- ifTrue: [SuspendedDelays add: ActiveDelay.
- ActiveDelay := aDelay]
- ifFalse: [SuspendedDelays add: aDelay]]
- !

Item was changed:
  ----- Method: Delay>>printOn: (in category 'printing') -----
  printOn: aStream
  super printOn: aStream.
+ aStream
+ nextPut: $(;
+ print: delayDuration;
+ nextPutAll: ' msecs'.
+ beingWaitedOn ifTrue:
+ [aStream
+ nextPutAll: '; ';
+ print: resumptionTime - Time utcMicrosecondClock + 500 // 1000;
+ nextPutAll: ' msecs remaining'].
+ aStream nextPut: $)!
- aStream nextPutAll: '('; print: delayDuration; nextPutAll: ' msecs'.
- beingWaitedOn ifTrue:[
- aStream nextPutAll: '; '; print: resumptionTime - Time millisecondClockValue; nextPutAll: ' msecs remaining'.
- ].
- aStream nextPutAll: ')'.!

Item was added:
+ ----- Method: Integer>>fractionPart (in category 'truncation and round off') -----
+ fractionPart
+ "Added for ANSI compatibility"
+ ^0!

Item was added:
+ ----- Method: Integer>>integerPart (in category 'truncation and round off') -----
+ integerPart
+ "Added for ANSI compatibility"
+ ^self!