aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/tools/name2compile.frt
blob: fa50d2bec35473f9f092adad58270e7337d43faf (plain)
1
2
3
4
5
6
7
8
9

: name>compile ( nt -- xt1 xt2)
  dup nfa>cfa swap name>flags immediate? 1 = if
    ['] execute
  else 
    ['] ,
  then
;