From d10261ddc242f32e2e0c6b4eb719cb722c9de9e3 Mon Sep 17 00:00:00 2001 From: kitty Date: Wed, 18 Feb 2026 22:18:21 +1100 Subject: ." --- jefs.fs | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/jefs.fs b/jefs.fs index 0999962..8f38805 100644 --- a/jefs.fs +++ b/jefs.fs @@ -20,6 +20,10 @@ decimal : constant create [compile] lit ret, ; : variable 1 cells allot create [compile] lit ret, ; +\ TODO interpret mode strings? +: s" [ char " ] literal >in @ 1 + >in ! ( skip spc ) [compile] litstring ; immediate +: ." [compile] s" ' say compile, ; immediate \ lol this word breaks the highlighting + : begin here @ ; immediate : again branch here @ 4 + - d, ; immediate \ add 4 to get to beginning of the next instruction : until 0branch here @ 4 + - d, ; immediate @@ -30,7 +34,6 @@ decimal : / /mod swap drop ; : mod /mod drop ; -: s" [ char " ] literal >in @ 1 + >in ! ( skip spc ) [compile] litstring ; immediate : testing 0 if TESTSTR else TESTSTR2 then say cr ; testing bye -- cgit v1.2.3