From 9158ca44876fb0db909f7d43b644ec0d24d78733 Mon Sep 17 00:00:00 2001
From: m15o <m15o@lab.my.domain>
Date: Thu, 17 Nov 2022 07:21:24 +0100
Subject: [PATCH] some new words

---
 std.15f | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

diff --git a/std.15f b/std.15f
index 5751ac4..2b17831 100644
--- a/std.15f
+++ b/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 -- )
+
 
-- 
2.38.5