1 files changed, 4 insertions(+), 0 deletions(-)

M std.15f

@@ 1,3 1,7 @@
 : +!   dup @ rot + swap ! ; ( n adr -- )
 : const   create , 1 allot ; ( n -- )
 : var   create 3 here + , 2 allot ; ( -- )
+: 1+   1 + ; ( n -- n+1 )
+: 1-   1 - ; ( n -- n-1 )
+: array   var 1- allot ; ( cap -- )
+