improve s"

1 files changed, 3 insertions, 1 deletions

diff --git a/jefs.fs b/jefs.fs
index 8f38805..ff6aa5b 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -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