The Trunk: Kernel-fbs.827.mcz

Frank Shearar uploaded a new version of Kernel to project The Trunk:
http://source.squeak.org/trunk/Kernel-fbs.827.mcz

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

Name: Kernel-fbs.827
Author: fbs
Time: 30 December 2013, 10:13:12.71 am
UUID: d83c2233-41dd-e24f-9386-04a55ab9318c
Ancestors: Kernel-nice.826

Move Transcripter's invoker to System-Recovery. All #primitiveError: senders are in Tools, so this completes the move of recovery things to System-Recovery.

=============== Diff against Kernel-nice.826 ===============

Item was removed:
- ----- Method: Object>>primitiveError: (in category 'private') -----
- primitiveError: aString
- "This method is called when the error handling results in a recursion in
- calling on error: or halt or halt:."
- | hasTranscripter transcripter |
- hasTranscripter := (Smalltalk classNamed: #Transcripter)
- ifNotNil: [ :t | transcripter := t. true]
- ifNil: [false].
- (String
- streamContents:
- [:s |
- | context |
- s nextPutAll: '***System error handling failed***'.
- s cr; nextPutAll: aString.
- context := thisContext sender sender.
- 20 timesRepeat: [context == nil ifFalse: [s cr; print: (context := context sender)]].
- s cr; nextPutAll: '-------------------------------'.
- hasTranscripter
- ifTrue: [
- s cr; nextPutAll: 'Type CR to enter an emergency evaluator.'.
- s cr; nextPutAll: 'Type any other character to restart.']
- ifFalse: [
- s cr; nextPutAll: 'Type any character to restart.']])
- displayAt: 0 @ 0.
- [Sensor keyboardPressed] whileFalse.
- Sensor keyboard = Character cr ifTrue: [
- hasTranscripter ifTrue: [transcripter emergencyEvaluator]].
- Project current resetDisplay!