src/Java.st
branchjk_new_structure
changeset 1021 8ae6c261878a
parent 1016 2b20730b8717
child 1022 38b710d7dfbc
--- 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
         ]
     ].