From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Fri, 4 Jun 2021 08:15:59 +0000 (+1000)
Subject: bug fix for lpar comment
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=2970d5d687c74fc8d2f036300220005c4ee0603a;p=rrq%2Frrqforth.git

bug fix for lpar comment
---

diff --git a/rrqforth.asm b/rrqforth.asm
index b06fed1..96b9083 100644
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -190,7 +190,7 @@ p_lparen_loop:
 	cmp rax,1
 	jne p_lparen_loop
 	push rbx
-	push qword ')'
+	push p_lbaren_rparen
 	push 1
 	DOFORTH p_strncmp
 	pop rax
@@ -199,7 +199,8 @@ p_lparen_loop:
 p_lparen_exit:
 	popr rsi
 	next
-	
+p_lbaren_rparen: db ')',0
+
 ;;; ******** The main entry point. ********
 ;;; This could be set up as a WORD but it isn't