equal
deleted
inserted
replaced
1 "{ Package: 'jv:tea/compiler' }" |
1 "{ Package: 'jv:tea/compiler' }" |
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 TBinding subclass:#TValueBinding |
5 TBinding subclass:#TValueBinding |
6 instanceVariableNames:'' |
6 instanceVariableNames:'type' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'Languages-Tea-Compiler-Bindings' |
9 category:'Languages-Tea-Compiler-Bindings' |
10 ! |
10 ! |
11 |
11 |
17 Abstract subclasses must redefine again." |
17 Abstract subclasses must redefine again." |
18 |
18 |
19 ^ self == TValueBinding. |
19 ^ self == TValueBinding. |
20 ! ! |
20 ! ! |
21 |
21 |
|
22 !TValueBinding methodsFor:'accessing'! |
|
23 |
|
24 type |
|
25 ^ type |
|
26 |
|
27 "Created: / 31-08-2015 / 11:48:57 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
28 ! |
|
29 |
|
30 type: aTType |
|
31 type := aTType |
|
32 |
|
33 "Created: / 31-08-2015 / 11:49:14 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
34 ! ! |
|
35 |