From: Clyne Sullivan <clyne@bitgloo.com>
Date: Fri, 24 Feb 2023 13:50:46 +0000 (-0500)
Subject: fix decimal and hex
X-Git-Url: https://code.bitgloo.com/?a=commitdiff_plain;h=914a75b2097090595d12015b750f97dc55bf7dcd;p=bitgloo%2Falee-forth.git

fix decimal and hex
---

diff --git a/core.fth b/core.fth
index 4f7ef81..85744a7 100644
--- a/core.fth
+++ b/core.fth
@@ -36,8 +36,8 @@
 : postpone 1 3 cells ! ; imm
 : _input   4 cells ;
 
-: decimal  1 1+ base ! 1010 base ! ;
-: hex      1 1+ base ! 10000 base ! ;
+: decimal  10 base ! ;
+: hex      16 base ! ;
 
 : [']      ' postpone literal ; imm
 : [        0 state ! ; imm