litstring + #tib

1 files changed, 2 insertions, 0 deletions

diff --git a/jefs.fs b/jefs.fs
index e9c3119..0999962 100644
--- a/jefs.fs
+++ b/jefs.fs
@@ -16,6 +16,7 @@ decimal
 
 : [compile] parse find drop >cfa compile, ; immediate
 : ' parse find drop >cfa [compile] lit ; immediate \ note: no error handling (yet)
+: literal [compile] lit ; immediate
 : constant create [compile] lit ret, ;
 : variable 1 cells allot create [compile] lit ret, ;
 
@@ -29,6 +30,7 @@ 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