ObjectFileLoader.st
changeset 880 80dbb4df087d
parent 858 2697c8300306
child 881 ed4efb1b161e
--- a/ObjectFileLoader.st	Sat Jun 26 18:29:19 1999 +0200
+++ b/ObjectFileLoader.st	Mon Jun 28 10:02:36 1999 +0200
@@ -1329,25 +1329,25 @@
     |handle|
 
     LoadedObjects notNil ifTrue:[
-	handle := LoadedObjects at:aFileName ifAbsent:nil
+        handle := LoadedObjects at:aFileName ifAbsent:nil
     ].
     handle isNil ifTrue:[
-	'OBJFLOADER: oops file to be unloaded was not loaded dynamically (', aFileName , ')'.
-	^ self
+        'OBJFLOADER: oops file to be unloaded was not loaded dynamically (', (aFileName ? 'unknown-file') , ')'.
+        ^ self
     ].
     handle isClassLibHandle ifFalse:[
-	self warn:'module is not a classLib module'.
-	^ self
+        self warn:'module is not a classLib module'.
+        ^ self
     ].
 
     "/ remove the classes ...
 
     Class withoutUpdatingChangesDo:[
-	handle classes do:[:aClass |
-	    aClass isMeta ifFalse:[
-		aClass removeFromSystem
-	    ]
-	]
+        handle classes do:[:aClass |
+            aClass isMeta ifFalse:[
+                aClass removeFromSystem
+            ]
+        ]
     ].
 
     "/ call the modules deInit-function ...
@@ -3792,6 +3792,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.196 1999-06-18 13:53:44 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.197 1999-06-28 08:02:36 cg Exp $'
 ! !
 ObjectFileLoader initialize!