aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/defer-seal.frt
blob: 9c50a840bfca12b283855dc5d2499fe3587b20f0 (plain)
1
2
3
4
5
6
7
8
9
10
11

\ ' turnkey defer:seal 

: defer:seal ( XT -- )
    dup defer@ ( -- XT' XT )
    swap ( -- XT XT')
    dup ['] quit @i ( get DO_COLON) swap !i
    1+   dup rot swap !i
    1+ ['] exit swap !i
;