--- a/compiler/TFunctionBinding.st	Wed Sep 02 09:18:00 2015 +0100
+++ b/compiler/TFunctionBinding.st	Wed Sep 02 18:15:44 2015 +0100
@@ -3,7 +3,7 @@
 "{ NameSpace: Smalltalk }"
 
 TBinding subclass:#TFunctionBinding
-	instanceVariableNames:'returnType parameters type'
+	instanceVariableNames:'returnType parameterTypes'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Languages-Tea-Compiler-Bindings'
@@ -11,15 +11,32 @@
 
 !TFunctionBinding methodsFor:'accessing'!
 
-type
-    ^ type
+parameterTypes
+    ^ parameterTypes
+!
 
-    "Created: / 31-08-2015 / 12:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+returnType
+    ^ returnType
 !
 
-type: aTType
-    type := aTType
+type
+    ^ returnType
 
-    "Created: / 31-08-2015 / 12:03:58 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Created: / 31-08-2015 / 12:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 02-09-2015 / 17:02:43 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!TFunctionBinding methodsFor:'initialization'!
+
+parameterTypes: aCollection
+    parameterTypes := aCollection
+
+    "Created: / 02-09-2015 / 17:03:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
+returnType: aTType
+    returnType := aTType
+
+    "Created: / 02-09-2015 / 17:03:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+