diff options
Diffstat (limited to 'src/interp/scan.boot')
-rw-r--r-- | src/interp/scan.boot | 12 |
1 files changed, 11 insertions, 1 deletions
diff --git a/src/interp/scan.boot b/src/interp/scan.boot index 557be8f8..674fe05e 100644 --- a/src/interp/scan.boot +++ b/src/interp/scan.boot @@ -38,6 +38,14 @@ import incl namespace BOOT module scan +--% + +$RDigits == + '"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ" + +$smallLetters == + '"abcdefghijklmnopqrstuvwxyz" + --% Separators $SPACE == QENUM('" ", 0) @@ -665,7 +673,9 @@ scanExponent(a,w)== else lffloat(a,w,'"0") rdigit? x== - STRPOS(x,'"0123456789ABCDEFGHIJKLMNOPQRSTUVWXYZ",0,nil) + d := STRPOS(x,$RDigits,0,nil) => d + d := STRPOS(x,$smallLetters,0,nil) => 10 + d + nil scanError()== n:=$n |