equal
deleted
inserted
replaced
4 |
4 |
5 RBProgramNode subclass:#TTypeNode |
5 RBProgramNode subclass:#TTypeNode |
6 instanceVariableNames:'' |
6 instanceVariableNames:'' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'Languages-Tea-AST' |
9 category:'Languages-Tea-Compiler-AST' |
10 ! |
10 ! |
|
11 |
11 |
12 |
12 !TTypeNode class methodsFor:'accessing'! |
13 !TTypeNode class methodsFor:'accessing'! |
13 |
14 |
14 formatterClass |
15 formatterClass |
15 ^ FormatterClass isNil ifTrue: [TFormatter] ifFalse: [FormatterClass] |
16 ^ FormatterClass isNil ifTrue: [TFormatter] ifFalse: [FormatterClass] |
25 Abstract subclasses must redefine again." |
26 Abstract subclasses must redefine again." |
26 |
27 |
27 ^ self == TTypeNode. |
28 ^ self == TTypeNode. |
28 ! ! |
29 ! ! |
29 |
30 |
|
31 !TTypeNode class methodsFor:'documentation'! |
|
32 |
|
33 version_HG |
|
34 |
|
35 ^ '$Changeset: <not expanded> $' |
|
36 ! ! |
|
37 |