; ( -- addr n) Compiler ; R( -- ) ; runtime portion of s" ;VE_SLITERAL: ; .db 10,"(sliteral)",0 ; .dw VE_HEAD ; .set VE_HEAD = VE_SLITERAL XT_SLITERAL: .dw DO_COLON PFA_SLITERAL: .dw XT_R_FROM ; ( -- addr ) .dw XT_DUP ; ( -- addr addr ) .dw XT_ICOUNT ; ( -- addr addr' n ) .dw XT_ROT ; ( -- addr' n addr ) .dw XT_OVER ; ( -- addr' n addr n) .dw XT_2SLASH ; ( -- addr' n addr k ) .dw XT_1PLUS ; ( -- addr' n addr k+1 ) .dw XT_PLUS ; ( -- addr' n addr'' ) .dw XT_TO_R ; ( -- ) .dw XT_EXIT