X-Git-Url: http://git.subgeniuskitty.com/pforth/.git/blobdiff_plain/77f603e7a5d5b01af482c34c2eae7e563bd17583..c1b0551debcb415cbc9fc976d011998d9f14759b:/fth/misc1.fth diff --git a/fth/misc1.fth b/fth/misc1.fth index 1e36e55..3a3a60a 100644 --- a/fth/misc1.fth +++ b/fth/misc1.fth @@ -74,7 +74,7 @@ decimal : $ ( -- N , convert next number as hex ) base @ hex - 32 lword number? num_type_single = not + bl lword number? num_type_single = not abort" Not a single number!" swap base ! state @