retroforth/interface/future.retro
crc a514c52369 all visible words now have stack comments added
FossilOrigin-Name: b6f90144f0af13ac973f6f4d5d6bbea38f8686cd218d14f6f7df03dc8dce89b8
2024-09-09 18:18:25 +00:00

21 lines
513 B
Forth

# New Words
This contains a variety of words from my more recent systems
and things that will be standard in the future.
~~~
:d:use-hashes (:-)
&eq? &d:lookup #5 - store
[ d:hash fetch ] &d:lookup #8 - store
#2049 &d:lookup store
&s:hash &d:lookup n:inc store ;
:d:use-strings (:-)
&s:eq? &d:lookup #5 - store
&d:name &d:lookup #8 - store
#0 &d:lookup store
#0 &d:lookup n:inc store ;
'interface/future.retro 'd:use-hashes d:set-source
'interface/future.retro 'd:use-strings d:set-source
~~~