From 660a99ca247cea4f9de3e5b6744728dd385a9494 Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Mon, 16 Feb 2026 18:27:52 +1100
Subject: +! -! allot

---
 jefs.fs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'jefs.fs')

diff --git a/jefs.fs b/jefs.fs
index 2f262f6..b4e2624 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -1,6 +1,9 @@
 : decimal 10 base ! ;
 : hex 16 base ! ;
 
+: cells 8 * ;
+: allot here @ swap here +! ;
+
 : [compile] parse find drop >cfa compile, ; immediate
 : ' parse find drop >cfa [compile] lit ; immediate \ note: no error handling (yet)
 
@@ -9,7 +12,6 @@
 : if 0branch here @ 0 d, ; immediate ( I: -- a )
 : then dup here @ swap - 4 - swap d! ; immediate
 
-: cells 8 * ;
 : cell+ 8 + ;
 : / /mod swap drop ;
 : mod /mod drop ;
-- 
cgit v1.2.3