Class Parser

lexAlphabetic | cc start |

	start <- index.

	[ (cc <- self nextChar) isAlphanumeric ]

			whileTrue: [ nil ].

		" add any trailing colons "

	cc = $: ifTrue: [ self nextChar ].

	token <- text from: start to: index - 1