'From Cuis 2.0 of 12 February 2010 [latest update: #418] on 15 February 2010 at 9:15:55 am'!

!SHParserST80 methodsFor: 'character testing' stamp: 'jmv 2/12/2010 14:44'!
isBigDigit: aCharacter base: anInteger
    "Answer true if aCharacter is a digit or a capital
    letter appropriate for base anInteger"
	| digitValue |
	
	digitValue := aCharacter digitValue.
	anInteger = 1 ifTrue: [
		^digitValue = 1 ].
	^digitValue >= 0 and:[digitValue < anInteger]! !

