//compile.asm:	WORD p_literal_string,'S"',fasm ;; " (fool emacs)

anchor:p_literal_string[]

=== Word: S"

....
Data stack: ( -- chars* n )
....

"S"" is a function word that pushes the [n:char] pointer for a string
inlined subsequently to it in the containing definition. This is
similar to <<p_lit,LIT>> but for a string literal.

====
.Word: LIT
[caption='Definition concept {counter:exec}: ']
----
: LIT R> DUP @ 2DUP + 8 + >R SWAP 8 + SWAP ;
----
====