*** empty log message ***
authorClaus Gittinger <cg@exept.de>
Fri, 31 Jan 1997 12:37:08 +0100
changeset 2341 05b6a63f8b6f
parent 2340 1225948b7473
child 2342 4e72f4d7caf1
*** empty log message ***
Object.st
--- a/Object.st	Fri Jan 31 11:24:49 1997 +0100
+++ b/Object.st	Fri Jan 31 12:37:08 1997 +0100
@@ -1943,8 +1943,8 @@
 
             deps class == WeakArray ifTrue:[
                 ((d := deps at:1) == anObject 
-		or:[d isNil
-		or:[d == 0]]) ifTrue:[
+                or:[d isNil
+                or:[d == 0]]) ifTrue:[
                     self dependents:nil
                 ]
             ] ifFalse:[
@@ -1953,12 +1953,13 @@
                     self dependents:nil
                 ] ifFalse:[
                     n == 1 ifTrue:[
-			d := deps firstIfEmpty:nil.
-			d notNil ifTrue:[
-                            self dependents:(WeakArray with:d)
-			] ifFalse:[
-                            self dependents:nil
-			]
+                        d := deps firstIfEmpty:nil.
+                        d notNil ifTrue:[
+                            deps := WeakArray with:d
+                        ] ifFalse:[
+                            deps := nil
+                        ].
+                        self dependents:deps.
                     ]
                 ]
             ]
@@ -1969,7 +1970,7 @@
         ]
     ]
 
-    "Modified: 19.7.1996 / 12:40:23 / cg"
+    "Modified: 31.1.1997 / 12:36:16 / cg"
 ! !
 
 !Object methodsFor:'dependents access (nonWeak)'!
@@ -5693,6 +5694,6 @@
 !Object class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.173 1997-01-30 21:18:46 cg Exp $'
+    ^ '$Header: /cvs/stx/stx/libbasic/Object.st,v 1.174 1997-01-31 11:37:08 cg Exp $'
 ! !
 Object initialize!