From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sun, 13 Jun 2021 04:01:47 +0000 (+1000)
Subject: fix READ-STREAM-LINE
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;ds=sidebyside;h=2c1ddb0d590be01213e6aab07bc5d073b0d3c567;p=rrq%2Frrqforth.git

fix READ-STREAM-LINE
---

diff --git a/stdio.asm b/stdio.asm
index 47a6302..45a25f6 100644
--- a/stdio.asm
+++ b/stdio.asm
@@ -165,7 +165,7 @@ p_read_stream_line_loop:
 	BRANCH ,p_read_stream_line_loop
 p_read_stream_line_done:
 	dq p_drop, p_literal,0, p_over, p_Cput
-	dq p_pad, p_minus, p_return
+	dq p_pad, p_minus, p_Rgt, p_drop, p_return
 
 	
 ;;; ========================================