From cd45fe6705aff60bfa7cf35234087bd43fab778b Mon Sep 17 00:00:00 2001 From: kitty Date: Wed, 18 Feb 2026 22:13:20 +1100 Subject: litstring + #tib --- jefs.fs | 2 ++ 1 file changed, 2 insertions(+) (limited to 'jefs.fs') 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 -- cgit v1.2.3