--- a/Object.st Sat Oct 01 16:46:59 2016 +0200
+++ b/Object.st Sat Oct 01 16:57:05 2016 +0200
@@ -23,11 +23,11 @@
KeyNotFoundSignal MessageNotUnderstoodSignal
NonIntegerIndexSignal NonWeakDependencies NotFoundSignal
OSSignalInterruptSignal ObjectAttributes
- ObjectAttributesAccessLock PrimitiveFailureSignal
+ ObjectAttributesAccessLock PartialErrorPrintLine
+ PartialInfoPrintLine PrimitiveFailureSignal
RecursionInterruptSignal RecursiveStoreStringSignal
SubscriptOutOfBoundsSignal SynchronizationSemaphores
- UserInterruptSignal UserNotificationSignal WarningSignal
- PartialInfoPrintLine PartialErrorPrintLine'
+ UserInterruptSignal UserNotificationSignal WarningSignal'
poolDictionaries:''
category:'Kernel-Objects'
!
@@ -5295,39 +5295,39 @@
"/ 'Stray recursionInterrupt ...' infoPrintCR.
"/ ^ self
"/ ].
- ObjectMemory infoPrinting ifTrue:[
- level := 0.
- caller := thisContext sender.
- [caller notNil] whileTrue:[
- level := level + 1.
- caller := caller sender.
- ].
-
- 'Object [info]: recursionInterrupt from:' printCR.
- con := con sender.
- remaining := 500.
- n := 0.
- [con notNil and:[remaining > 0]] whileTrue:[
- sender := con sender.
- '| ' print. con fullPrint.
-
- nSkipped := 0.
- [sender notNil and:[sender sender notNil
- and:[sender selector == con selector
- and:[sender sender selector == con selector
- and:[sender method == con method]]]]] whileTrue:[
- nSkipped := nSkipped + 1.
- con := sender.
- sender := con sender.
- ].
- nSkipped > 0 ifTrue:[
- '| ... ***** ' print. nSkipped print. ' recursive contexts skipped *****' printCR.
- ].
- con := sender.
- remaining := remaining - 1
- ].
- ].
- ^ RecursionInterruptSignal raiseSignal
+ ObjectMemory infoPrinting ifTrue:[
+ level := 0.
+ caller := thisContext sender.
+ [caller notNil] whileTrue:[
+ level := level + 1.
+ caller := caller sender.
+ ].
+
+ 'Object [info]: recursionInterrupt from:' errorPrintCR.
+ con := con sender.
+ remaining := 500.
+ n := 0.
+ [con notNil and:[remaining > 0]] whileTrue:[
+ sender := con sender.
+ '| ' errorPrint. con fullPrint.
+
+ nSkipped := 0.
+ [sender notNil and:[sender sender notNil
+ and:[sender selector == con selector
+ and:[sender sender selector == con selector
+ and:[sender method == con method]]]]] whileTrue:[
+ nSkipped := nSkipped + 1.
+ con := sender.
+ sender := con sender.
+ ].
+ nSkipped > 0 ifTrue:[
+ '| ... ***** ' errorPrint. nSkipped errorPrint. ' recursive contexts skipped *****' errorPrintCR.
+ ].
+ con := sender.
+ remaining := remaining - 1
+ ].
+ ].
+ ^ RecursionInterruptSignal raiseSignal
]
"Modified: / 10.11.2001 / 15:15:56 / cg"