summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--jefs.fs4
1 files changed, 2 insertions, 2 deletions
diff --git a/jefs.fs b/jefs.fs
index c6cee2d..7a28b9b 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -176,7 +176,7 @@ variable hld
: .qword (.qword) say space ;
: ? @ . ;
-: .s sp 8 + ( skip sp itself ) begin dup s0 @ > while dup @ .qword 8 + repeat drop cr ;
+: .s sp cell+ ( skip sp itself ) begin dup s0 @ > while dup @ .qword cell+ repeat drop cr ;
: bytes-allocated hend @ h0 @ - ;
: bytes-used here @ h0 @ - ;
: bytes-free bytes-allocated bytes-used - ;
@@ -196,5 +196,5 @@ variable hld
\ : teststr3 s" 1 2 3 .s" ;
\
\ teststr3 evaluate
-t .free
+.free
bye