X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/40c6f87ff261cacf78377241c8746da1aaa504c5..7d169e32d0619ecf128abe042ec5ef6a2655e1a1:/fth/numberio.fth diff --git a/fth/numberio.fth b/fth/numberio.fth index 74d1006..05ec4da 100644 --- a/fth/numberio.fth +++ b/fth/numberio.fth @@ -4,7 +4,7 @@ \ numeric conversion \ \ Author: Phil Burk -\ Copyright 1994 3DO, Phil Burk, Larry Polansky, Devid Rosenboom +\ Copyright 1994 3DO, Phil Burk, Larry Polansky, David Rosenboom \ \ The pForth software code is dedicated to the public domain, \ and any third party may reproduce, distribute and modify @@ -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