remove IMMEDAITE from quote and literal

[rrq/rrqforth.git] / compile.asm

diff --git a/compile.asm b/compile.asm
index 6ddf3a3387b916450ccf72ca5963ca0a75199580..8102cbc813452b24d7ad20f11b64b06c249bbac3 100644 (file)
--- 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!!