--- a/Object.st Fri Oct 08 15:32:36 1999 +0200
+++ b/Object.st Fri Oct 08 17:24:09 1999 +0200
@@ -4218,11 +4218,11 @@
hard-terminates the process."
thisContext isRecursive ifFalse:[
- Processor activeProcess usedStackSize < Processor activeProcess maximumStackSize ifTrue:[
- "/ mhmh - it hit me, but I am not responsible ...
- 'Stray recursionInterrupt ...' infoPrintCR.
- ^ self
- ].
+"/ Processor activeProcess usedStackSize < Processor activeProcess maximumStackSize ifTrue:[
+"/ "/ mhmh - it hit me, but I am not responsible ...
+"/ 'Stray recursionInterrupt ...' infoPrintCR.
+"/ ^ self
+"/ ].
thisContext sender fullPrint.
thisContext sender sender fullPrint.
thisContext sender sender sender fullPrint.
@@ -7736,6 +7736,6 @@
!Object class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.300 1999-10-07 11:47:56 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.301 1999-10-08 15:24:09 cg Exp $'
! !
Object initialize!