xcomp: don't automatically shadow core words

2020-04-09 09:43:48 -04:00 · 2020-04-09 09:43:48 -04:00 · 66dc621919
commit 66dc621919
parent 0c3067ed9a
2 changed files with 11 additions and 3 deletions
--- a/emul/forth/xcomp.fs
+++ b/emul/forth/xcomp.fs
@ -1,2 +1,6 @@
+: CODE XCODE ;
+: IMMEDIATE XIMM ;
+: : [ ' X: , ] ;
+
 CURRENT @ XCURRENT !
 H@ ' _bend - 4 + XOFF !
--- a/forth/xcomp.fs
+++ b/forth/xcomp.fs
@ -14,6 +14,10 @@
  "'" and friends will *not* find words you're about to
  define. Only (xfind) will.

+  Words ":", "IMMEDIATE" and ":" are not automatically
+  shadowed to allow the harmless inclusion of this unit. This
+  shadowing has to take place in your xcomp configuration.
+
  See example in /emul/forth/xcomp.fs
 )

@ -49,16 +53,16 @@ VARIABLE XOFF
    CURRENT !               ( a f xa xf )
 ;

-: CODE
+: XCODE
    (xentry) 23 ,
 ;

-: IMMEDIATE
+: XIMM
    XCURRENT @ 1 -
    DUP C@ 128 OR SWAP C!
 ;

-: :
+: X:
    (xentry)
    ( 0e == compiledWord )
    [ 0x0e LITN ] ,