next
p_read_word_skipline:
- DOFORTH p_dup, p_read_stream_char
+ DOFORTH p_Rget, p_read_stream_char
pop rbx
cmp bl,0
jl p_read_word_nomore
lea rdi,[p_pad_DFA]
add rdi,qword [rsp]
mov byte [rdi],0
- ;; copy PAD string into new temp object
+ ;; copy PAD string + NUL into new temp object
inc qword [rsp]
DOFORTH p_str2temp
dec qword [rsp]