boot: add S — state-smart parse-next-token-as-string

`S name` is the string analogue of `[CHAR] x` and `['] name`: parses the
next whitespace-delimited token, state-smart.

  Interpret: leaves ( c-addr u ) pointing into the input buffer.
  Compile:   appends run-time push of the copied bytes (identical code
             to writing S" name" inline).

One line in boot.fth, leverages the existing PARSE-NAME + SLITERAL.
Zero runtime overhead inside : definitions.

crates/core/boot.fth

@@ -305,3 +305,19 @@
 : DFALIGN  FALIGN ;
 
 \ .S keeps its Rust host function (complex stack introspection).
+
+\ ---------------------------------------------------------------
+\ Phase 8: Parse-ahead sugar
+\ ---------------------------------------------------------------
+
+\ S ( "<spaces>name<space>" -- )  ( -- c-addr u  at run time )
+\
+\ State-smart "quote the next whitespace-delimited token as a string".
+\ Interpret-mode: leave ( c-addr u ) pointing into the input buffer.
+\ Compile-mode:   append run-time semantics that push the copied string
+\                 (identical to writing S" name" inline).
+\
+\ This is the string analogue of [CHAR] (for chars) and ['] (for xts).
+\ Comparable to Lisp's quote: S foo is to a string what ' foo is to an xt.
+\ Inside a : definition the compiled code is bit-identical to S" foo".
+: S  PARSE-NAME  STATE @ IF SLITERAL THEN ; IMMEDIATE