Add word "EMPTY"

blk/037

@@ -12,5 +12,5 @@ ALLOT    n --     Move HERE by n bytes
 C,       b --     Write byte b in HERE and advance it.
 DELW     a --     Delete wordref at a. If it shadows another
                   definition, that definition is unshadowed.
-FORGET x --       Rewind the dictionary (both CURRENT and HERE)
+EMPTY  --         Rewind HERE and CURRENT where they were at
-                  up to x's previous entry.             (cont.)
+                  system initialization.                (cont.)

blk/038

@@ -1,5 +1,6 @@
 (cont.)
-PREV        a -- a          Return a wordref's previous entry.
+FORGET x --       Rewind the dictionary (both CURRENT and HERE)
-WHLEN       a -- n          Get word header length from
+                  up to x's previous entry.             
-                            wordref. That is, name length + 3.
+PREV   a -- a     Return a wordref's previous entry.
-                            a is a wordref
+WHLEN  a -- n     Get word header length from wordref. That is,
+                  name length + 3. a is a wordref

emul/forth/run.fs

@@ -11,5 +11,6 @@
     ['] EFS@ BLK@* !
     RDLN$
     Z80A$
+    LIT< _sys [entry]
     INTERPRET
 ;

forth/core.fs

@@ -144,3 +144,8 @@
     DUP WHLEN - HERE !  ( w )
     PREV CURRENT !
 ;
+
+: EMPTY
+    LIT< _sys (find) NOT IF ABORT THEN
+    DUP HERE ! CURRENT !
+;

forth/icore.fs

@@ -146,10 +146,9 @@
     AGAIN
 ;
 
-: (entry)
+: [entry]
-    HERE @    ( h )
+    HERE @       ( w h )
-    WORD         ( h s )
+    SWAP SCPY    ( h )
-    SCPY         ( h )
     ( Adjust HERE -1 because SCPY copies the null )
     HERE @ 1 - ( h h' )
     DUP HERE ! ( h h' )
@@ -161,6 +160,8 @@
     HERE @ CURRENT !
 ;
 
+: (entry) WORD [entry] ;
+
 : INTERPRET
     BEGIN
     WORD