From 31d100201da1d719f0bc503119295b290542eb28 Mon Sep 17 00:00:00 2001 From: kitty Date: Wed, 4 Mar 2026 18:02:44 +1100 Subject: fucking oops so turns out my comparisons have been fucked for this whole time lmao --- jefs.fs | 8 ++++---- jefs.s | 8 ++++---- 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 -- cgit v1.2.3