equal
deleted
inserted
replaced
35 " |
35 " |
36 ! |
36 ! |
37 |
37 |
38 version |
38 version |
39 " |
39 " |
40 $Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.3 1995-02-22 01:16:48 claus Exp $ |
40 $Header: /cvs/stx/stx/libbasic/ImmutableArray.st,v 1.4 1995-05-01 23:03:57 claus Exp $ |
41 " |
41 " |
42 ! |
42 ! |
43 |
43 |
44 documentation |
44 documentation |
45 " |
45 " |
67 !ImmutableArray methodsFor:'error handling'! |
67 !ImmutableArray methodsFor:'error handling'! |
68 |
68 |
69 creator |
69 creator |
70 "find the method that contains me" |
70 "find the method that contains me" |
71 |
71 |
72 Method allDerivedInstances do:[:aMethod | |
72 Method allSubInstances do:[:aMethod | |
73 |lits| |
73 |lits| |
74 |
74 |
75 lits := aMethod literals. |
75 lits := aMethod literals. |
76 (lits notNil and:[(lits identityIndexOf:self) ~~ 0]) ifTrue:[ |
76 (lits notNil and:[(lits identityIndexOf:self) ~~ 0]) ifTrue:[ |
77 ^ aMethod |
77 ^ aMethod |