... whooops

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 -- )