aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/tools/synonym.frt
blob: bb51c61fd83c533c45ea52e5c4e70b7442b1fcde (plain)
1
2
3
4
5
6
7
8
9
10
11
12
\ SYNONYM <newname> <oldname>

\
\ does not check for reference to itself
\
: synonym 
    create immediate ' ,
  does>
    @i state @ if , else execute then
;

\ : synonym : bl word find >r compile, postpone ; r> 0> IF immedate THEN ;