1 //compile.asm: WORD p_literal_string,'S"',fasm ;; " (fool emacs)
3 anchor:p_literal_string[]
8 Data stack: ( -- chars* n )
11 "S"" is a function word that pushes the [n:char] pointer for a string
12 inlined subsequently to it in the containing definition. This is
13 similar to <<p_lit,LIT>> but for a string literal.
16 .Definition concept for LIT
18 : LIT R> DUP @ 2DUP + 8 + >R SWAP 8 + SWAP ;