."

1 files changed, 4 insertions, 1 deletions

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