--- 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!