X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/b60d4a658481962a2d8f3024674977c94c1b93b6..f75485364a6ebbc1a166a6687503c003bfa97313:/fth/numberio.fth diff --git a/fth/numberio.fth b/fth/numberio.fth index 74d1006..e79c5b8 100644 --- a/fth/numberio.fth +++ b/fth/numberio.fth @@ -96,7 +96,7 @@ decimal base @ -rot ( base c-addr u ) - \ Regonize prefixes and change base if needed + \ Recognize prefixes and change base if needed over c@ >r ( base c-addr u ) ( r: char ) r@ [char] # = if rot drop 10 -rot 1 /string then r@ [char] $ = if rot drop 16 -rot 1 /string then