Class Parser

nameNode: name

	" make a new name node "

	name = 'super'

		ifTrue: [ ^ ArgumentNode new position: 0 ].

	(1 to: tempNames size) do: [:i |

		(name = (tempNames at: i))

			ifTrue: [ ^ TemporaryNode new position: i ] ].

	(1 to: argNames size) do: [:i |

		(name = (argNames at: i))

			ifTrue: [ ^ ArgumentNode new position: i ] ].

	(1 to: instNames size) do: [:i |

		(name = (instNames at: i))

			ifTrue: [ ^ InstNode new position: i ] ].

	(1 to: classVarNames size) do: [:i |

		(name = (classVarNames at: i))

			ifTrue: [ ^ ClassVarNode new position: i]].

"<117 ('DEB: ' + name + ' ' + name class printString)>."

	^ LiteralNode new value: (self findName: name)