The Trunk: Chronology-Core-dtl.60.mcz

David T. Lewis uploaded a new version of Chronology-Core to project The Trunk:
http://source.squeak.org/trunk/Chronology-Core-dtl.60.mcz

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

Name: Chronology-Core-dtl.60
Author: dtl
Time: 8 September 2020, 7:42:44.062725 pm
UUID: afcc86c3-7fb2-4ecd-b9ae-9840f100393c
Ancestors: Chronology-Core-ul.58

Fix Time>>addSeconds: to maintain nanoseconds.

=============== Diff against Chronology-Core-ul.58 ===============

Item was changed:
  ----- Method: Time>>addSeconds: (in category 'smalltalk-80') -----
  addSeconds: nSeconds
  "Answer a Time that is nSeconds after the receiver."
 
+ | secondsToAdd newNanos |
+ (secondsToAdd := nSeconds truncated) = nSeconds
+ ifTrue: [newNanos := nanos]
+ ifFalse: [(newNanos := nanos + (nSeconds - secondsToAdd * NanosInSecond)) > NanosInSecond
+ ifTrue: [secondsToAdd := secondsToAdd + 1.
+ newNanos := newNanos - NanosInSecond]].
+ ^ self class seconds: seconds + secondsToAdd nanoSeconds: newNanos!
- ^ self class seconds: self asSeconds + nSeconds!