compile time parsing

1 files changed, 5 insertions, 8 deletions

diff --git a/core.fth b/core.fth
index 96dc0f2..c3746c3 100644
--- a/core.fth
+++ b/core.fth
@@ -1,23 +1,20 @@
-: cell+     cell + ;
-: cells     cell * ;
-: char+     1 + ;
 : chars     ;
 
 : state     [ _d 7 cells + ] literal ;
 \ : [         0 state ! ; immediate
 \ : ]         -1 state ! ;
 
-: sp        _d ;
-: rp        [ _d cell+ ] literal ;
-: dp        [ _d 3 cells + ] literal ;
+: sp        [ _d cell+ ] literal ;
+: rp        [ _d 2 cells + ] literal ;
+: dp        [ _d 4 cells + ] literal ;
 
 : sp@       sp @ ;
 : rp@       rp @ cell+ ;
-: ip        [ _d cell+ cell+ ] literal ;
+: ip        [ _d 3 cells + ] literal ;
 : here      dp @ ;
 : unused    [ _d 8 cells + ] literal @ here - ;
 : base      [ _d 9 cells + ] literal ;
-: latest    [ _d 4 cells + ] literal @ ;
+: latest    _d @ ;
 
 \ : dup       sp@ @ ;
 \ : drop      sp@ cell+ sp ! ;