From: Ralph Ronnquist <ralph.ronnquist@gmail.com>
Date: Mon, 24 May 2021 01:46:11 +0000 (+1000)
Subject: fix the asm label for TUCK
X-Git-Url: https://git.rrq.au/?a=commitdiff_plain;h=c91525c4bc19d001bbea047376549b1cf07ebbc4;p=rrq%2Frrqforth.git

fix the asm label for TUCK
---

diff --git a/stack.asm b/stack.asm
index 32db5ae..d26bf7b 100644
--- a/stack.asm
+++ b/stack.asm
@@ -119,9 +119,9 @@ p_roll_eq:
 	push qword [rsp+rax]
 	next
 
-	WORD w6.2.2300, 'TUCK',fasm
+	WORD p_tuck, 'TUCK',fasm
 	;; ( x1 x2 -- x2 x1 x2 )
-	;; insert the top stack value into below second stack value.
+	;; copy the top stack value into below second stack value.
 	pop rax
 	pop rbx
 	push rax