--- a/compiler/TFunctionBinding.st Wed Aug 26 07:51:18 2015 +0100
+++ b/compiler/TFunctionBinding.st Mon Aug 31 13:53:40 2015 +0100
@@ -3,9 +3,23 @@
"{ NameSpace: Smalltalk }"
TBinding subclass:#TFunctionBinding
- instanceVariableNames:''
+ instanceVariableNames:'returnType parameters type'
classVariableNames:''
poolDictionaries:''
category:'Languages-Tea-Compiler-Bindings'
!
+!TFunctionBinding methodsFor:'accessing'!
+
+type
+ ^ type
+
+ "Created: / 31-08-2015 / 12:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+type: aTType
+ type := aTType
+
+ "Created: / 31-08-2015 / 12:03:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+