diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 8 |
1 files changed, 4 insertions, 4 deletions
@@ -188,7 +188,7 @@ variable hld : <# pad hld ! ; : hold 1 hld -! ( chr ) hld @ c! ; : sign 0< if [ char - ] literal hold then ; -: # base @ /mod swap 9 over > if 7 + then [ char 0 ] literal + hold ; +: # base @ /mod swap 9 over < if 7 + then [ char 0 ] literal + hold ; : #s begin # dup 0= until ; : #> drop hld @ pad over - ; @@ -211,8 +211,8 @@ variable hld \ }}} : ? @ . ; -: .s sp cell+ ( skip sp itself ) begin dup s0 @ > while dup @ . cell+ repeat drop cr ; -: .rs rp cell+ ( skip rsp itself ) begin dup rs0 @ > while dup @ . cell+ repeat drop cr ; +: .s sp cell+ ( skip sp itself ) begin dup s0 @ < while dup @ . cell+ repeat drop cr ; +: .rs rp cell+ ( skip rsp itself ) begin dup rs0 @ < while dup @ . cell+ repeat drop cr ; : bytes-allocated heremax @ herestart @ - ; : bytes-used here @ herestart @ - ; @@ -299,7 +299,7 @@ stdin buffers-fd ! : buffer-refill ( u|0 ) cbuffer /buffer cbuffer-fd @ read-file 0<> if 0 then 0 cbuffer->in ! dup cbuffer-used ! ; \ returns zero on error or nothing read. \ this is Borken -: buffer-empty? cbuffer->in @ cbuffer-used @ .s >= .s ; +: buffer-empty? cbuffer->in @ cbuffer-used @ >= ; \ bug: always seems to refill : buffer-key buffer-empty? if buffer-refill 0= if -1 [ ret, ] then then cbuffer cbuffer->in @ + c@ |