compiler/TTypeseeder.st
changeset 9 569bf5707c7e
parent 8 eec72263ed75
child 10 2b9beeac547e
--- a/compiler/TTypeseeder.st	Mon Sep 14 11:19:10 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,32 +0,0 @@
-"{ Package: 'jv:tea/compiler' }"
-
-"{ NameSpace: Smalltalk }"
-
-TCompilerPass subclass:#TTypeseeder
-	instanceVariableNames:''
-	classVariableNames:''
-	poolDictionaries:''
-	category:'Languages-Tea-Compiler'
-!
-
-!TTypeseeder methodsFor:'visiting'!
-
-visitArgument: anRBVariableNode
-    super visitArgument: anRBVariableNode.
-    anRBVariableNode binding type: anRBVariableNode typeSpec asType
-
-    "Created: / 31-08-2015 / 11:51:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-
-!TTypeseeder methodsFor:'visitor-double dispatching'!
-
-acceptMethodNode: aMethodNode 
-    super acceptMethodNode: aMethodNode.
-    aMethodNode binding 
-            returnType: aMethodNode returnTypeSpec asType;
-            parameterTypes: (aMethodNode arguments collect: [ :arg | arg binding type ])
-
-    "Created: / 31-08-2015 / 12:13:15 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-    "Modified: / 02-09-2015 / 17:05:08 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-! !
-