--- 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>"
-! !
-