equal
deleted
inserted
replaced
66 ^ super remove:anObject ifAbsent:exceptionBlock |
66 ^ super remove:anObject ifAbsent:exceptionBlock |
67 ! ! |
67 ! ! |
68 |
68 |
69 !IdentitySet methodsFor:'converting'! |
69 !IdentitySet methodsFor:'converting'! |
70 |
70 |
|
71 asIdentitySet |
|
72 "return the receiver as an IdentitySet" |
|
73 |
|
74 "could be an instance of a subclass..." |
|
75 self class == IdentitySet ifTrue:[ |
|
76 ^ self |
|
77 ]. |
|
78 ^ super asIdentitySet |
|
79 ! |
|
80 |
71 asNewIdentitySet |
81 asNewIdentitySet |
72 "make sure to return myself as a unique new set" |
82 "make sure to return myself as a unique new IdentitySet" |
73 |
83 |
74 "could be an instance of a subclass..." |
84 "could be an instance of a subclass..." |
75 self class == IdentitySet ifTrue:[ |
85 self class == IdentitySet ifTrue:[ |
76 ^ self copy |
86 ^ self copy |
77 ]. |
87 ]. |
259 ! ! |
269 ! ! |
260 |
270 |
261 !IdentitySet class methodsFor:'documentation'! |
271 !IdentitySet class methodsFor:'documentation'! |
262 |
272 |
263 version |
273 version |
264 ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.35 2013-03-28 23:19:39 stefan Exp $' |
274 ^ '$Header: /cvs/stx/stx/libbasic/IdentitySet.st,v 1.36 2013-04-03 09:11:25 stefan Exp $' |
265 ! ! |
275 ! ! |
266 |
276 |