From 19b929b4d34de011d7d51f0c61604acf9226519d Mon Sep 17 00:00:00 2001 From: kitty Date: Thu, 26 Feb 2026 20:07:34 +1100 Subject: use cell+ in s" --- jefs.fs | 4 ++-- 1 file 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 -- cgit v1.2.3