~m15o/15f

9158ca44876fb0db909f7d43b644ec0d24d78733 — m15o 1 year, 4 months ago 71e98d3
some new words
1 files changed, 3 insertions(+), 3 deletions(-)

M std.15f
M std.15f => std.15f +3 -3
@@ 1,7 1,7 @@
: +!   dup @ rot + swap ! ; ( n adr -- )
: const   create , 1 allot ; ( n -- )
: var   create 3 here + , 2 allot ; ( -- )
: var   create 1 allot does> ; ( -- )
: const   create , does> @ ; ( n -- )
: 1+   1 + ; ( n -- n+1 )
: 1-   1 - ; ( n -- n-1 )
: array   var 1- allot ; ( cap -- )