--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/extensions.st	Tue Aug 25 19:02:43 2015 +0100
@@ -0,0 +1,71 @@
+"{ Package: 'jv:tea/compiler' }"!
+
+!RBBlockNode methodsFor:'accessing'!
+
+returnTypeSpec
+    "Return the TTypeSpecNode describing the return type of the
+     block"
+
+    ^ self propertyAt: #returnTypeSpec ifAbsent: nil
+
+    "Created: / 21-08-2015 / 22:47:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBBlockNode methodsFor:'accessing'!
+
+returnTypeSpec: aTTypeSpecNode
+    "Set the TTypeSpecNode describing the return type of the block"
+
+    ^ self propertyAt: #returnTypeSpec put: aTTypeSpecNode
+
+    "Created: / 21-08-2015 / 22:48:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBMethodNode methodsFor:'accessing'!
+
+returnTypeSpec
+    "Return the TTypeSpecNode describing the return type of the
+     method"
+
+    ^ self propertyAt: #returnTypeSpec ifAbsent: nil
+
+    "Created: / 21-08-2015 / 22:47:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBMethodNode methodsFor:'accessing'!
+
+returnTypeSpec: aTTypeSpecNode
+    "Set the TTypeSpecNode describing the return type of the method"
+
+    ^ self propertyAt: #returnTypeSpec put: aTTypeSpecNode
+
+    "Created: / 21-08-2015 / 22:48:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBVariableNode methodsFor:'accessing'!
+
+typeSpec
+    "Return the TTypeSpecNode associated with this variable node
+     (if this node is for variable declaration) or nil (otherwise)"
+
+    ^ self propertyAt: #typeSpec ifAbsent: nil
+
+    "Created: / 21-08-2015 / 21:16:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!RBVariableNode methodsFor:'accessing'!
+
+typeSpec: aTTypeSpecNode
+    "Associate a TTypeSpecNode this variable node"
+
+    ^ self propertyAt: #typeSpec put: aTTypeSpecNode
+
+    "Created: / 21-08-2015 / 21:17:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
+!jv_tea_compiler class methodsFor:'documentation'!
+
+extensionsVersion_HG
+
+    ^ '$Changeset: <not expanded> $'
+! !