samples/eval.sample


1
2
3
4
5
6
7
8
9
10
11
12
13
14

define update
    $update_var !
    $update_phrase !
    $update_var @ @ $update_phrase @ unphrase
    $update_var @ !
    $update_var forget $update_phrase forget
    ;

10 $num !
[ 1 + ] $num update
$num ?

[ 5 / ] $num update
$num ?