1 //compile.asm: WORD p_literal_string,'LIT-STRING',fasm
3 anchor:p_literal_string[]
8 Data stack: ( -- chars* n )
11 "LIT-STRING" is a function word that pushes the char* and length n of
12 a subsequent inline string, then advances execution to continue after
13 the string. This is similar to <<p_lit,LIT>> but for a block literal.
15 Note that the inlined byte count includes the terminating NUL byte.
18 .Definition concept for LIT-STRING
20 : LIT-STRING R@ DUP @ 8 + R@ @ 2DUP + R> + >R 1 - ;