--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/TUniverseDefinition.st	Mon Aug 31 18:37:31 2015 +0100
@@ -0,0 +1,32 @@
+"{ Package: 'jv:tea/compiler' }"
+
+"{ NameSpace: Smalltalk }"
+
+RGNamespace subclass:#TUniverseDefinition
+	instanceVariableNames:''
+	classVariableNames:''
+	poolDictionaries:''
+	category:'Languages-Tea-Compiler-Model'
+!
+
+!TUniverseDefinition methodsFor:'adding elements'!
+
+addMethod: method
+    | mclassName mclassIsMeta mclass |
+
+    mclassName := method className.
+    (mclassName endsWith: ' class') ifTrue:[ 
+        mclassName := mclassName copyTo: mclassName size - 6.
+        mclassIsMeta := true.
+    ] ifFalse:[ 
+        mclassIsMeta := false.
+    ].
+    mclass := self classNamed: mclassName.
+    mclassIsMeta ifTrue:[ 
+        mclass := mclass theMetaclass.
+    ].
+    mclass addMethod: method.
+
+    "Created: / 31-08-2015 / 17:10:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+