fucking oops

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

2 files changed, 8 insertions, 8 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@
diff --git a/jefs.s b/jefs.s
index 0a45c58..4050289 100644
--- a/jefs.s
+++ b/jefs.s
@@ -918,7 +918,7 @@ defword "<>", less_greater, 0
 defword "<", less, 0
 	pspop r11
 	pspop r12
-	cmp r11, r12
+	cmp r12, r11
 	setl r13b
 	movzx r11, r13b
 	neg r11
@@ -928,7 +928,7 @@ defword "<", less, 0
 defword ">", greater, 0
 	pspop r11
 	pspop r12
-	cmp r11, r12
+	cmp r12, r11
 	setg r13b
 	movzx r11, r13b
 	neg r11
@@ -938,7 +938,7 @@ defword ">", greater, 0
 defword "<=", lesseq, 0
 	pspop r11
 	pspop r12
-	cmp r11, r12
+	cmp r12, r11
 	setle r13b
 	movzx r11, r13b
 	neg r11
@@ -948,7 +948,7 @@ defword "<=", lesseq, 0
 defword ">=", greatereq, 0
 	pspop r11
 	pspop r12
-	cmp r11, r12
+	cmp r12, r11
 	setge r13b
 	movzx r11, r13b
 	neg r11