... whooops

1 files changed, 5 insertions, 3 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,