From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Mon, 24 May 2021 15:11:31 +0000 (+1000)
Subject: remove IMMEDAITE from quote and literal
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=a3427c86d68cc40ac6f9ed1bd153bb45f0456b55;p=rrq%2Frrqforth.git

remove IMMEDAITE from quote and literal
---

diff --git a/compile.asm b/compile.asm
index 6ddf3a3..8102cbc 100644
--- a/compile.asm
+++ b/compile.asm
@@ -46,7 +46,7 @@ p_create_COPY:
 	add qword [p_here_DFA],rax
 	next
 	
-	WORD p_quote,"'",fasm,IMMEDIATE
+	WORD p_quote,"'",fasm
 	;; ( "word" -- cfa )
 	;; Find the following word and push its cfa, or 0
 	pushr rsi
@@ -108,7 +108,7 @@ p_quote_end:
 	mov qword [rax+8],dodoes
 	next
 
-	WORD p_literal,'LIT',fasm,IMMEDIATE
+	WORD p_literal,'LIT',fasm
 	;; ( -- v )
 	;; Push the value of successor cell onto stack, and skip it.
 	;; not for interactive use!!