aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/core-ext/defers.frt
blob: 25b950508f3b9ed9af58d510d4f3d2741e2fe6bf (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23

\ various defer definitions
\ platform specific examples are available !

\ place the XT in RAM, suitable for frequent changes
\ but needs to be initialized at startup

: Rdefer ( "name" -- )
    (defer)
    here , 
    ['] Rdefer@ ,
    ['] Rdefer! ,
    2 allot
;

\ use the user area to hold the XT. Similiar to
\ Rdefer but task lokal in multitasking applications
: Udefer ( u "name" -- )
    (defer)
    , \ 
    ['] Udefer@ ,
    ['] Udefer! ,
;