"{ Package: 'jv:tea/compiler' }"

"{ NameSpace: Smalltalk }"

TType subclass:#TSimpleType

	instanceVariableNames:'name'

	classVariableNames:''

	poolDictionaries:''

	category:'Languages-Tea-Type System'

!

!TSimpleType class methodsFor:'instance creation'!

named: aString

    ^ self new initializeWithName: aString

    "Created: / 21-08-2015 / 19:24:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TSimpleType methodsFor:'accessing'!

name

    ^ name

! !

!TSimpleType methodsFor:'initialization'!

initializeWithName: aString

    name := aString

    "Created: / 21-08-2015 / 19:23:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TSimpleType methodsFor:'printing & storing'!

printWithoutAnglesOn:aStream

    aStream nextPutAll: name

    "Modified: / 21-08-2015 / 17:08:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!TSimpleType methodsFor:'testing'!

isSimpleType

    ^ true

! !

!TSimpleType class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !