retroforth/example/DictionaryAlias.retro
crc 848ba7303b use .retro instead of .forth in examples
FossilOrigin-Name: b5feea667d30aac255d1cfca61fed355d438d2ce6021677f1e53af6302b15eee
2019-08-20 18:46:40 +00:00

24 lines
467 B
Text

The easiest way to make an alias is by
:s2 s1 ;
which adds a layer of `call`.
`d:alias` eliminates this overhead.
~~~
{{
:d:<aka> (as-)_also_known_as
d:create &class:word reclass d:last d:xt swap d:xt fetch swap store ;
---reveal---
:d:aka (s-)_make_alias_of_the_last_defined_word [ d:last ] dip d:<aka> ;
'aka d:aka
:d:alias (ss-)_make_alias_s2_of_s1 [ d:lookup ] dip d:<aka> ; 'alias aka
}}
~~~
```
:t #8 + ; 'tt aka
#9 tt
't 'ttt alias
#10 ttt
```