summaryrefslogtreecommitdiff
path: root/jefs.fs
diff options
context:
space:
mode:
Diffstat (limited to 'jefs.fs')
-rw-r--r--jefs.fs4
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 ;