--- a/Smalltalk.st Thu Sep 15 12:05:35 2011 +0100
+++ b/Smalltalk.st Tue Sep 20 11:11:19 2011 +0100
@@ -515,20 +515,21 @@
"sent from VM via #initializeModules"
Error handle:[:ex |
- ClassesFailedToInitialize isNil ifTrue:[
- ClassesFailedToInitialize := IdentitySet new.
- ].
- ClassesFailedToInitialize add:aClass.
- ('Smalltalk [warning]: error during initialize of ' , aClass name,': ', ex description printString) errorPrintCR.
- ex suspendedContext fullPrintAll.
- (Smalltalk commandLineArguments includes:'--debug') ifTrue:[
- ex reject
- ].
+ ClassesFailedToInitialize isNil ifTrue:[
+ ClassesFailedToInitialize := IdentitySet new.
+ ].
+ ClassesFailedToInitialize add:aClass.
+ ('Smalltalk [warning]: error during initialize of ' , aClass name,': ', ex description printString) errorPrintCR.
+ ex suspendedContext fullPrintAll.
+ '------------------------------------------------' errorPrintCR.
+ (Smalltalk commandLineArguments includes:'--debug') ifTrue:[
+ ex reject
+ ].
] do:[
- aClass initialize
- ].
-
- "Modified: / 23-10-2006 / 16:29:19 / cg"
+ aClass initialize
+ ].
+
+ "Modified: / 11-09-2011 / 17:01:32 / cg"
!
initializeModules
@@ -7674,11 +7675,11 @@
!Smalltalk class methodsFor:'documentation'!
version
- ^ '$Id: Smalltalk.st 10686 2011-09-07 16:25:40Z vranyj1 $'
+ ^ '$Id: Smalltalk.st 10690 2011-09-20 10:11:19Z vranyj1 $'
!
version_CVS
- ^ '§Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.975 2011/09/04 07:34:07 cg Exp §'
+ ^ '§Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.976 2011/09/11 15:01:45 cg Exp §'
!
version_SVN
@@ -7689,3 +7690,4 @@
+