diff options
Diffstat (limited to 'core.fth')
| -rw-r--r-- | core.fth | 18 |
1 files changed, 9 insertions, 9 deletions
@@ -1,6 +1,9 @@ ( : variable create 0 , ; ) ( : create here const ; ) +: 1+ 1 + ; +: 1- 1 - ; + : ! 2 _! ; : @ 2 _@ ; : , here ! 2 allot ; @@ -14,7 +17,7 @@ : chars ; : align here 1 & if 1 allot then ; -: aligned dup 1 & if 1 + then ; +: aligned dup 1 & if 1+ then ; ( set decimal numbers ) 10 0 ! @@ -38,14 +41,6 @@ : 2* 2 * ; : 2/ 2 / ; -: 0= 0 = ; -: 0< 0 < ; -: <= 2dup < -rot = and ; -: > <= 0= ; - -: 1+ 1 + ; -: 1- 1 - ; - : 2drop drop drop ; : 2dup over over ; : 2over 3 pick 3 pick ; @@ -55,6 +50,11 @@ : 2! swap over ! cell+ ! ; : 2@ dup cell+ @ swap @ ; +: 0= 0 = ; +: 0< 0 < ; +: <= 2dup - 1- 0< ; +: > <= 0= ; + : cr 9 emit ; : bl 32 ; : space bl emit ; |