25 lines
467 B
Text
25 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
|
||
|
|
```
|