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!
packages@lists.squeakfoundation.org