diff options
Diffstat (limited to 'jefs.fs')
| -rw-r--r-- | jefs.fs | 12 |
1 files changed, 8 insertions, 4 deletions
@@ -24,9 +24,6 @@ decimal : constant create [compile] lit ret, ; : variable 1 cells allot create [compile] lit ret, ; -32 constant bl -: space bl emit ; - \ TODO interpret mode strings? : s" [ char " ] literal 1 >in +! ( skip spc ) [compile] litstring ; immediate : ." [compile] s" ' say compile, ; immediate \ lol this word breaks the highlighting, here have another " @@ -45,12 +42,18 @@ decimal : if 0branch >mark ; immediate ( I: -- a ) : else branch >mark swap >resolve ; immediate : then >resolve ; immediate +: while 0branch >mark ; immediate +: repeat branch swap <resolve >resolve ; immediate : / /mod swap drop ; : mod /mod drop ; : negate 0 swap - ; : abs dup 0< if negate then ; +32 constant bl +: space bl emit ; +: spaces begin dup 0> while space 1- repeat drop ; + \ PNO \ mostly from pforth 255 allot variable pad @@ -64,10 +67,11 @@ variable hld : (u.) <# #s #> ; : u. (u.) say space ; +: u.r >r (u.) r> over - spaces say ; : (.) dup abs <# #s swap sign #> ; : . (.) say space ; - \ TODO something is leaking its stack (a word address i think) +15 10 u.r t bye |