aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/core/action-of.frt
blob: 894b399a29d7b0714b238f92337624e95a588226 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
\ *******************************************
\  action-of depends on defer@
\ *******************************************

\ #requires postpone.frt

: action-of
    state @
    if
       postpone ['] postpone defer@
    else
       ' defer@
    then
; immediate