X-Git-Url: https://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/40c6f87ff261cacf78377241c8746da1aaa504c5..aad4537d9f90c2fd1b648f13a041ba1c7439b7c4:/fth/numberio.fth?ds=inline 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