1 files changed, 3 insertions(+), 3 deletions(-)

M std.15f

@@ 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 -- )
+