X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=stack.asm;h=d86727680763c9e93b6c691a361b3657baeb4e88;hb=f2b2acd5d5c79e2d65854eef7e23f7323bc6c4f2;hp=32db5aef859f3734a55e32bd854ee68722a27cfd;hpb=1e20129cc5801258ef162be39d764693511ff6fb;p=rrq%2Frrqforth.git

diff --git a/stack.asm b/stack.asm
index 32db5ae..d867276 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
@@ -132,7 +132,7 @@ p_roll_eq:
 ;;; ========================================
 ;;; Return stack operations
 
-	WORD p_ltR, '>R',fasm
+	WORD p_gtR, '>R',fasm
 	;; ( x -- ) ( R: -- x )
 	;; Move x to the return stack.
 	pop rax