diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 4 |
1 files changed, 2 insertions, 2 deletions
@@ -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 |
