'From Squeak3.2gamma of 15 January 2002 [latest update: #4811] on 8 June 2002 at 12:38:32 pm'!

!Scanner methodsFor: 'multi-character scans' stamp: 'ka 6/8/2002 12:34'!
xBinary
	tokenType _ #binary.
	token _ self step asSymbol.
	[| type | 
	type _ typeTable
				at: hereChar asciiValue
				ifAbsent: [#xLetter].
	type == #xBinary
		and: [hereChar ~= $-]]
		whileTrue: [token _ (token
						, (String with: self step)) asSymbol]! !