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

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

Name: Kernel-cmm.1238
Author: cmm
Time: 25 May 2019, 5:30:44.220675 pm
UUID: e3efa7f8-adc8-434c-a1d2-7efeda6d0fca
Ancestors: Kernel-nice.1237

- Moved several methods belonging to Chronology to that package.

=============== Diff against Kernel-nice.1237 ===============

Item was removed:
- ----- Method: BlockClosure>>bench (in category 'evaluating') -----
- bench
- 	"See how many times I can value in 5 seconds.  I'll answer a meaningful description."
- 
- 	^self benchFor: 5 seconds!

Item was removed:
- ----- Method: BlockClosure>>benchFor: (in category 'evaluating') -----
- benchFor: aDuration
- 	"See how many times I can value within the given duration.  I'll answer a meaningful description."
- 
- 	| startTime shouldRun count elapsedTime  roundTo3Digits delay |
- 	roundTo3Digits := [:num |
- 		| rounded lowDigit |
- 		rounded := (num * 1000) rounded. "round to 1/1000"
- 		lowDigit := (rounded numberOfDigitsInBase: 10) - 3. "keep only first 3 digits"
- 		rounded := rounded roundTo:(10 raisedTo: lowDigit).
- 		(lowDigit >= 3 or: [rounded \\ 1000 = 0]) "display fractional part only when needed"
- 			ifTrue: [(rounded // 1000) asStringWithCommas]
- 			ifFalse: [(rounded / 1000.0) printString]].
- 	delay := aDuration asDelay.
- 	count := 0.
- 	shouldRun := true.
- 	[ delay wait. shouldRun := false ] forkAt: Processor timingPriority - 1.
- 	startTime := Time millisecondClockValue.
- 	[ shouldRun ] whileTrue: [ 
- 		self value.
- 		count := count + 1 ].
- 	elapsedTime := Time millisecondsSince: startTime.
- 	^(roundTo3Digits value: count * 1000 / elapsedTime) , ' per second.', ((
- 		#(
- 			(1e-3 'seconds')
- 			(1 'milliseconds')
- 			(1e3 'microseconds')
- 			(1e6 'nanoseconds')
- 		)
- 			detect: [ :pair | elapsedTime * pair first >= count ]
- 			ifNone: [ #(1e9 'picoseconds') ])
- 		in: [ :pair |
- 			' {1} {2} per run.' format: {
- 				(roundTo3Digits value: elapsedTime * pair first / count).
- 				pair second } ])!

Item was removed:
- ----- Method: BlockClosure>>durationToRun (in category 'evaluating') -----
- durationToRun
- 	"Answer the duration taken before this block returns."
- 
- 	^ Time durationToRun: self
- !

Item was removed:
- ----- Method: BlockClosure>>timeToRun (in category 'evaluating') -----
- timeToRun
- 	"Answer the number of milliseconds taken to execute this block."
- 
- 	^ Time millisecondsToRun: self
- !

Item was removed:
- ----- Method: BlockClosure>>timeToRunWithoutGC (in category 'evaluating') -----
- timeToRunWithoutGC
- 	"Answer the number of milliseconds taken to execute this block without GC time."
- 
- 	^(Smalltalk vmParameterAt: 8) + 
- 		(Smalltalk vmParameterAt: 10) +
- 		self timeToRun -
- 		(Smalltalk vmParameterAt: 8) - 
- 		(Smalltalk vmParameterAt: 10)
- !

Item was removed:
- ----- Method: BlockClosure>>valueWithin:onTimeout: (in category 'evaluating') -----
- valueWithin: aDuration onTimeout: timeoutBlock
- 	"Evaluate the receiver.
- 	If the evaluation does not complete in less than aDuration evaluate the timeoutBlock instead"
- 
- 	| theProcess delay watchdog tag |
- 
- 	aDuration <= Duration zero ifTrue: [^ timeoutBlock value ].
- 
- 	"the block will be executed in the current process"
- 	theProcess := Processor activeProcess.
- 	delay := aDuration asDelay.
- 	tag := self.
- 
- 	"make a watchdog process"
- 	watchdog := [
- 		delay wait. 	"wait for timeout or completion"
- 		theProcess ifNotNil:[ theProcess signalException: (TimedOut new tag: tag)] 
- 	] newProcess.
- 
- 	"Watchdog needs to run at high priority to do its job (but not at timing priority)"
- 	watchdog priority: Processor timingPriority-1.
- 
- 	"catch the timeout signal"
- 	^ [	watchdog resume.				"start up the watchdog"
- 		self ensure:[						"evaluate the receiver"
- 			theProcess := nil.				"it has completed, so ..."
- 			delay delaySemaphore signal.	"arrange for the watchdog to exit"
- 		]] on: TimedOut do: [ :e | 
- 			e tag == tag 
- 				ifTrue:[ timeoutBlock value ]
- 				ifFalse:[ e pass]].!

Item was removed:
- ----- Method: Integer>>asYear (in category 'converting') -----
- asYear
- 
- 	^ Year year: self 
- !

Item was removed:
- ----- Method: Number>>asDuration (in category 'converting') -----
- asDuration
- 
- 	^ Duration nanoSeconds: self asInteger
- !

Item was removed:
- ----- Method: Number>>day (in category 'converting') -----
- day
- 
- 	^ self sign days!

Item was removed:
- ----- Method: Number>>days (in category 'converting') -----
- days
- 
- 	^ Duration days: self!

Item was removed:
- ----- Method: Number>>hour (in category 'converting') -----
- hour
- 
- 	^ self sign hours
- !

Item was removed:
- ----- Method: Number>>hours (in category 'converting') -----
- hours
- 
- 	^ Duration hours: self!

Item was removed:
- ----- Method: Number>>milliSecond (in category 'converting') -----
- milliSecond
- 
- 	^ self sign milliSeconds
- !

Item was removed:
- ----- Method: Number>>milliSeconds (in category 'converting') -----
- milliSeconds
- 
- 	^ Duration milliSeconds: self
- !

Item was removed:
- ----- Method: Number>>minute (in category 'converting') -----
- minute
- 
- 	^ self sign minutes
- !

Item was removed:
- ----- Method: Number>>minutes (in category 'converting') -----
- minutes
- 
- 	^ Duration minutes: self!

Item was removed:
- ----- Method: Number>>nanoSecond (in category 'converting') -----
- nanoSecond
- 
- 	^ self sign nanoSeconds
- !

Item was removed:
- ----- Method: Number>>nanoSeconds (in category 'converting') -----
- nanoSeconds
- 
- 	^ Duration nanoSeconds: self.!

Item was removed:
- ----- Method: Number>>second (in category 'converting') -----
- second
- 
- 	^ self sign seconds
- !

Item was removed:
- ----- Method: Number>>seconds (in category 'converting') -----
- seconds
- 
- 	^ Duration seconds: self!

Item was removed:
- ----- Method: Number>>week (in category 'converting') -----
- week
- 
- 	^ self sign weeks
- !

Item was removed:
- ----- Method: Number>>weeks (in category 'converting') -----
- weeks
- 
- 	^ Duration weeks: self!