summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--jefs.fs7
1 files changed, 4 insertions, 3 deletions
diff --git a/jefs.fs b/jefs.fs
index 42f32c4..52f9cc4 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -1,6 +1,5 @@
\ i think something is going on with the stack. i dunno
\ things TODO:
-\ better error handling
\ :noname
\ DO LOOP
\ s\"
@@ -148,6 +147,9 @@ decimal
: mod /mod drop ;
: negate 0 swap - ;
: abs dup 0< if negate then ;
+: */mod >r * r> /mod ;
+: */ */mod nip ;
+: % 100 */ ;
32 constant bl
: space bl emit ;
@@ -238,5 +240,4 @@ variable hld
: read-file ( c-addr u fd -- ?u flag ) >r swap r> sysread errno ;
\ }}}
-: t r/o z" test" open-file .s drop close-file .s drop ;
-t .free bye
+.free bye