*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Tue, 05 Dec 1995 20:35:02 +0100
changeset 153 90df8e05815c
parent 152 d7c2314f393e
child 154 04716b86ad29
*** empty log message ***
ObjFLoader.st
ObjectFileLoader.st
--- a/ObjFLoader.st	Tue Dec 05 20:17:25 1995 +0100
+++ b/ObjFLoader.st	Tue Dec 05 20:35:02 1995 +0100
@@ -911,10 +911,10 @@
     |handle|
 
     LoadedObjects notNil ifTrue:[
-	handle := LoadedObjects at:aFileName
+	handle := LoadedObjects at:aFileName ifAbsent:nil
     ].
     handle isNil ifTrue:[
-	self error:'this file was not loaded dynamically'.
+	'OBJFLOADER: oops file to be unloaded was not loaded dynamically (', aFileName , ')'.
 	^ self
     ].
 
@@ -2740,6 +2740,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.58 1995-12-05 17:52:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/Attic/ObjFLoader.st,v 1.59 1995-12-05 19:35:02 cg Exp $'
 ! !
 ObjectFileLoader initialize!
--- a/ObjectFileLoader.st	Tue Dec 05 20:17:25 1995 +0100
+++ b/ObjectFileLoader.st	Tue Dec 05 20:35:02 1995 +0100
@@ -911,10 +911,10 @@
     |handle|
 
     LoadedObjects notNil ifTrue:[
-	handle := LoadedObjects at:aFileName
+	handle := LoadedObjects at:aFileName ifAbsent:nil
     ].
     handle isNil ifTrue:[
-	self error:'this file was not loaded dynamically'.
+	'OBJFLOADER: oops file to be unloaded was not loaded dynamically (', aFileName , ')'.
 	^ self
     ].
 
@@ -2740,6 +2740,6 @@
 !ObjectFileLoader class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.58 1995-12-05 17:52:15 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileLoader.st,v 1.59 1995-12-05 19:35:02 cg Exp $'
 ! !
 ObjectFileLoader initialize!