X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;f=stack.asm;h=d86727680763c9e93b6c691a361b3657baeb4e88;hb=1650b06e609ebb40a1fcd3df54a3147f41f42138;hp=d26bf7b2c9d137fd2dc9a152653cbd59d33590a3;hpb=c91525c4bc19d001bbea047376549b1cf07ebbc4;p=rrq%2Frrqforth.git

diff --git a/stack.asm b/stack.asm
index d26bf7b..d867276 100644
--- a/stack.asm
+++ b/stack.asm
@@ -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