+! -! allot

1 files changed, 3 insertions, 1 deletions

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 ;