;; ( char* n -- char* n )
;; Capture a given [n:char*] string as a new temp object with
;; leading size cell.
- dq p_dup, p_gtR ; size
- dq p_dup, p_temp
- dq p_dup, p_gtR ; address
+ dq p_dup, p_gtR ; ( -- char* n ) [ n ]
+ dq p_dup, p_temp ; ( -- char* n addr )
+ dq p_dup, p_gtR ; ( -- char* n addr ) [ n addr ]
dq p_2dup, p_put
dq p_literal, 8, p_plus
dq p_swap, p_strncpy
- dq p_Rgt, p_Rgt, p_swap
+ dq p_Rgt, p_Rgt
dq p_exit