From ac052135a0a9347bc727b5aadba7e13d3a5c8c5b Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Sat, 28 Feb 2026 22:58:33 +1100
Subject: ... whooops

---
 jefs.fs | 8 +++++---
 jefs.s  | 2 --
 2 files changed, 5 insertions(+), 5 deletions(-)

diff --git a/jefs.fs b/jefs.fs
index ea8f740..a1757ca 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -262,9 +262,6 @@ variable hld
 1 constant w/o
 2 constant r/w
 
-8192 constant file-buffer-length
-make file-buffer file-buffer-length allot
-
 \ TODO error handling (0< abs → errno i think)
 \ flags are zero on success
 \ maybe there should be some sort of read buffering support here
@@ -274,6 +271,11 @@ make file-buffer file-buffer-length allot
 : write-file ( c-addr u fd -- ?u flag )  >r swap r> syswrite errno ;
 \ }}}
 
+\ USER INPUT {{{
+8192 constant file-buffer-length
+make file-buffer file-buffer-length allot
+\ }}}
+
 \ INTERACTIVITY {{{
 \ i hate dealing with user input!!!
 \ but my idea is: when reading forth from a file,
diff --git a/jefs.s b/jefs.s
index b4dc8d0..cc75976 100644
--- a/jefs.s
+++ b/jefs.s
@@ -201,13 +201,11 @@ defword "c,", c_comma, 0
 	ret
 
 defword "cmove", _cmove, 0 ; ( a1 a2 u -- )
-	call heredump
 	pspop rcx
 	pspop rdi
 	pspop rsi
 
 	rep movsb
-	call heredump
 	ret
 
 defword "cmove,", _cmove_comma, 0 ; ( c-addr u -- )
-- 
cgit v1.2.3