From 394f37243b3f71822017a94f6ccb39883ad3a11f Mon Sep 17 00:00:00 2001
From: kitty <nepeta@canaglie.net>
Date: Wed, 18 Feb 2026 22:24:32 +1100
Subject: improve s"

---
 jefs.fs | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

(limited to 'jefs.fs')

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
-- 
cgit v1.2.3