fix decimal and hex

diff --git a/core.fth b/core.fth
index 4f7ef814cf6c266946a9f99776457fb23f7da468..85744a74c9500f04c9c89b95af0be3a625e2e0a7 100644 (file)
--- 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