From a3427c86d68cc40ac6f9ed1bd153bb45f0456b55 Mon Sep 17 00:00:00 2001 From: Ralph Ronnquist Date: Tue, 25 May 2021 01:11:31 +1000 Subject: [PATCH] remove IMMEDAITE from quote and literal --- compile.asm | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) 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!! -- 2.39.2