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