aboutsummaryrefslogtreecommitdiff
path: root/amforth-6.5/common/lib/forth2012/core/values.frt
blob: 08bf0a1d4a7a6afe0d9a848309c9d0c5f8037b18 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16

: Uvalue ( n offs -- )
    (value)
    dup ,
    ['] Udefer@ ,
    ['] Udefer! ,
    up@ + !
;

: Rvalue ( n -- )
    (value)
    here ,
    ['] Rdefer@ ,
    ['] Rdefer! ,
    here ! 2 allot
;