equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
86 |
88 |
87 codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler |
89 codeStoreOn:aStream inBlock:codeBlock valueNeeded:valueNeeded for:aCompiler |
88 ^ self subclassResponsibility |
90 ^ self subclassResponsibility |
89 ! ! |
91 ! ! |
90 |
92 |
|
93 !PrimaryNode methodsFor:'enumeration'! |
|
94 |
|
95 allSubNodesDo:aBlock |
|
96 "no subnodes" |
|
97 |
|
98 ^ self |
|
99 ! ! |
91 |
100 |
92 !PrimaryNode methodsFor:'evaluation'! |
101 !PrimaryNode methodsFor:'evaluation'! |
93 |
102 |
94 store:aValue |
103 store:aValue |
95 ^ self subclassResponsibility |
104 ^ self subclassResponsibility |