diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 7 |
1 files changed, 4 insertions, 3 deletions
@@ -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 |
