diff options
| -rw-r--r-- | jefs.fs | 4 |
1 files changed, 3 insertions, 1 deletions
@@ -21,7 +21,7 @@ decimal : variable 1 cells allot create [compile] lit ret, ; \ TODO interpret mode strings? -: s" [ char " ] literal >in @ 1 + >in ! ( skip spc ) [compile] litstring ; immediate +: s" [ char " ] literal 1 >in +! ( skip spc ) [compile] litstring ; immediate : ." [compile] s" ' say compile, ; immediate \ lol this word breaks the highlighting : begin here @ ; immediate @@ -34,6 +34,8 @@ decimal : / /mod swap drop ; : mod /mod drop ; +: t ." testtest" cr ; : testing 0 if TESTSTR else TESTSTR2 then say cr ; +t testing bye |
