izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-17 07:08:05 +11:00
Code Issues Releases Wiki Activity

xcomp: don't automatically shadow core words

Browse Source
This commit is contained in:
Virgil Dupras 2020-04-09 09:43:48 -04:00
parent 0c3067ed9a
commit 66dc621919
2 changed files with 11 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
emul/forth/xcomp.fs
View File

@ -1,2 +1,6 @@
: CODE XCODE ;
: IMMEDIATE XIMM ;
: : [ ' X: , ] ;
CURRENT @ XCURRENT ! CURRENT @ XCURRENT !
H@ ' _bend - 4 + XOFF ! H@ ' _bend - 4 + XOFF !

10
forth/xcomp.fs
View File

@ -14,6 +14,10 @@
"'" and friends will *not* find words you're about to "'" and friends will *not* find words you're about to
define. Only (xfind) will. 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 See example in /emul/forth/xcomp.fs
) )
@ -49,16 +53,16 @@ VARIABLE XOFF
CURRENT ! ( a f xa xf ) CURRENT ! ( a f xa xf )
; ;
: CODE : XCODE
(xentry) 23 , (xentry) 23 ,
; ;
: IMMEDIATE : XIMM
XCURRENT @ 1 - XCURRENT @ 1 -
DUP C@ 128 OR SWAP C! DUP C@ 128 OR SWAP C!
; ;
: : : X:
(xentry) (xentry)
( 0e == compiledWord ) ( 0e == compiledWord )
[ 0x0e LITN ] , [ 0x0e LITN ] ,