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 +++++---
 1 file changed, 5 insertions(+), 3 deletions(-)

(limited to 'jefs.fs')

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,
-- 
cgit v1.2.3