--- a/compiler/TType.st Tue Sep 22 17:43:38 2015 +0100
+++ b/compiler/TType.st Wed Sep 23 22:21:44 2015 +0100
@@ -2,7 +2,7 @@
"{ NameSpace: Smalltalk }"
-Object subclass:#TType
+TObjectWithProperties subclass:#TType
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
@@ -37,9 +37,9 @@
printOn:aStream
aStream nextPut: $<; space.
self printWithoutAnglesOn:aStream.
- aStream nextPut: $>; space.
+ aStream space; nextPut: $>.
- "Modified: / 21-08-2015 / 13:46:25 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+ "Modified: / 23-09-2015 / 16:32:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"
!
printWithoutAnglesOn:aStream
@@ -50,6 +50,12 @@
!TType methodsFor:'testing'!
+isAutomaticType
+ ^ false
+
+ "Created: / 23-09-2015 / 16:32:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
isBlockType
^ false
@@ -73,6 +79,6 @@
!
version_HG
- ^ 'Path: jv/tea/compiler/TType.st, Version: 1.0, User: jv, Time: 2015-08-26T07:46:38.380+01'
+ ^ '$Path: jv/tea/compiler/TType.st, Version: 1.0, User: jv, Time: 2015-08-26T07:46:38.380+01$'
! !