--- a/src/Java.st Wed Oct 12 15:17:47 2011 +0000
+++ b/src/Java.st Sat Oct 15 21:33:35 2011 +0000
@@ -110,26 +110,26 @@
!Java class methodsFor:'accessing'!
-classForName:aString
+classForName: aString
"return a javaClass - either existing or loaded"
-
+
| cls |
- cls := self at:aString.
- cls isNil ifTrue:[
- FailedToLoadClasses notNil ifTrue:[
- (FailedToLoadClasses includes:aString) ifTrue:[
-"/ ('JAVA [info]: class loading already failed: ' , aString) infoPrintCR.
+ cls := self at: aString.
+ cls isNil ifTrue: [
+ FailedToLoadClasses notNil ifTrue: [
+ (FailedToLoadClasses includes: aString) ifTrue: [
+ "/ ('JAVA [info]: class loading already failed: ' , aString) infoPrintCR.
^ nil
]
].
-
+
"/('JAVA [info]: late class loading: ' , aString) infoPrintCR.
- cls := JavaClassReader loadClass:aString.
- cls isNil ifTrue:[
- FailedToLoadClasses isNil ifTrue:[
- FailedToLoadClasses := Set new.
- ].
+
+ cls := JavaClassReader loadClass: aString.
+ cls isNil ifTrue: [
+ FailedToLoadClasses isNil ifTrue: [ FailedToLoadClasses := Set new. ].
+
"/FailedToLoadClasses add:aString
]
].