Class Parser

readSymbol

	| first last cc |



	first := index.

	[ cc := self currentChar.

	  cc isNil not and: [cc isAlphanumeric] ] whileTrue: [ index := index + 1 ].

	last := index - 1.

	self nextLex.

	^ (text from: first to: last) asSymbol