X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=adoc%2Fp_literal_string.adoc;h=ba94b0f3f7abadf97db4013aaba77123e5909f6a;hb=b49fed131d5a7806d0737bdc6f9b693c64753cf2;hp=218f443e7bab945ce1bedf8550502cb890129a04;hpb=656f37efbd89db1b1088281047a9633cf74e92ec;p=rrq%2Frrqforth.git diff --git a/adoc/p_literal_string.adoc b/adoc/p_literal_string.adoc index 218f443..ba94b0f 100644 --- a/adoc/p_literal_string.adoc +++ b/adoc/p_literal_string.adoc @@ -13,11 +13,9 @@ inlined subsequently to it in the containing definition. This is similar to <> but for a string literal. ==== -.Word: LIT -[caption='Definition concept {counter:exec}: '] ----- +.Definition concept for LIT +**** : LIT R> DUP @ 2DUP + 8 + >R SWAP 8 + SWAP ; ----- +**** ==== -