X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=stdio.asm;h=99bac9eb290532001312dcf7fb3db975de493c49;hb=58fa9b1054af5ce6b2e20ffdd2bf25f5f2355311;hp=e07e809d8bba5deda2d599f73c9660a1cfd04f2d;hpb=e5fe03259bcad1abf45257971eb92de95f269b1d;p=rrq%2Frrqforth.git

diff --git a/stdio.asm b/stdio.asm
index e07e809..99bac9e 100644
--- a/stdio.asm
+++ b/stdio.asm
@@ -245,7 +245,7 @@ p_read_word_nomore:
 	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
@@ -278,7 +278,7 @@ p_double_quote_endstream:
 	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]