fucking oops

so turns out my comparisons have been fucked for this whole time
lmao

1 files changed, 4 insertions, 4 deletions

diff --git a/jefs.fs b/jefs.fs
index 2adfb89..5ade0d6 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -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@