2022-10-25 11:59:21 +02:00
|
|
|
# New Words
|
|
|
|
|
|
2023-03-20 16:19:47 +01:00
|
|
|
This contains a variety of words from my more recent systems
|
|
|
|
|
and things that will be standard in the future.
|
2022-10-25 11:59:21 +02:00
|
|
|
|
2023-03-06 20:36:58 +01:00
|
|
|
~~~
|
|
|
|
|
: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 ;
|
2023-03-07 13:54:00 +01:00
|
|
|
|
|
|
|
|
: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 ;
|
2023-10-22 23:45:13 +02:00
|
|
|
|
|
|
|
|
'interface/future.retro 'd:use-hashes d:set-source
|
|
|
|
|
'interface/future.retro 'd:use-strings d:set-source
|
2023-03-06 20:36:58 +01:00
|
|
|
~~~
|
