1
0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-05 22:00:54 +11:00
collapseos/blk/132

10 lines
229 B
Plaintext
Raw Normal View History

2020-04-27 04:37:54 +10:00
( Relink a regular Forth full interpreter. )
: RLCORE
LIT< H@ (find) DROP ( target )
DUP 3 - @ ( t prevoff )
( subtract H@ name length )
2- ( t o )
RLDICT
;