bug fix

diff --git a/rrqforth.asm b/rrqforth.asm
index 7c1b5ca1ed314decfdfb7dbec0176ca2eecb40fb..fd377099761171f0f06149912e25882c9f3bfa98 100644 (file)
--- a/rrqforth.asm
+++ b/rrqforth.asm
@@ -126,10 +126,9 @@ previous_word = 0
        jmp qword rsi
 
        WORD p_execute,'EXECUTE',fasm
        jmp qword rsi
 
        WORD p_execute,'EXECUTE',fasm

-       ;; ( tfa -- )
+       ;; ( cfa -- )

        ;; Execute the word
        pop rax
        ;; Execute the word
        pop rax

-       tfa2cfa rax

        jmp qword [rax]         ; goto code of that FORTH word (64 bit jump)
        
        WORD p_exit, 'EXIT',fasm
        jmp qword [rax]         ; goto code of that FORTH word (64 bit jump)
        
        WORD p_exit, 'EXIT',fasm