From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Sat, 5 Jun 2021 23:39:57 +0000 (+1000)
Subject: fixed (comma)
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=f92a7c96cb562f8c9d9e5e6c86cf9770a09edda1;p=rrq%2Frrqforth.git

fixed (comma)
---

diff --git a/compile.asm b/compile.asm
index be5a908..72a8763 100644
--- a/compile.asm
+++ b/compile.asm
@@ -18,7 +18,7 @@
 	mov qword [rbx+24],rcx	; PFA (length)
 	pop rsi			; chars* (source)
 	lea rdi,[rbx+32]	; (dest)
-	;; clear DF
+	cld
 p_create_COPY:
 	movsb
 	dec rcx
@@ -60,8 +60,8 @@ p_quote_end:
 	WORD p_comma,','
 	;; ( v -- )
 	;; Put cell value onto the heap and advance "HERE"
-	dq p_here, p_put, p_literal, 8, p_here, p_put_plus, p_exit
-	
+	dq p_here, p_literal, 8, p_get_n_increment, p_put, p_exit
+
 	WORD p_Ccomma,'C,'
 	;; ( c -- )
 	;; Put byte value onto the heap and advance "HERE"