core.fth


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

( : variable create 0 , ; )
( : create here const ; )

: . 0 sys ;

: over   1 pick ;
: -rot   rot rot ;
: nip    swap drop ;
: tuck   swap over ;

: 1+ 1 + ;
: 1- 1 - ;

: 0= 0 = ;
: >= < 0= ;