samples/list.sample


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24

define prepend
    $prepend_val !
    $prepend_phrase !
    '[ $prepend_val @ $prepend_phrase @ unphrase '] phrase
    $prepend_val forget $prepend_phrase forget
    ;

define append
    $append_val !
    $append_phrase !
    '[ $append_phrase @ unphrase $append_val @ '] phrase
    $append_val forget $append_phrase forget
    ;

define stack-empty? stack-size 0 eq? ;

define ..
    [ stack-empty? not ]
        [ . ] loop
    ;

[ 2 3 ] 1 prepend .
[ 2 3 ] 4 append .
[ 1 2 3 ] pop ..