Forth: replace OVER OVER with 2DUP

adumont · Jan 22, 2022 · 310ee48 · 310ee48
1 parent cd9ef16
commit 310ee48
Showing 1 changed file with 2 additions and 2 deletions.
diff --git a/forth.s b/forth.s
@@ -1549,8 +1549,8 @@ noheader "STAR_SKIP_DO"
 ; ( end start -- )
 ; Used by ?DO
 	JMP do_COLON
-	.ADDR do_OVER, do_OVER	; ( end start end start )
-	.ADDR do_MINUS			; ( end start flag )
+	.ADDR do_2DUP		; ( end start end start )
+	.ADDR do_MINUS		; ( end start flag )
 	.ADDR do_0BR, @skip
 	; skip over address and we enter the DO loop
 	.ADDR do_FROM_R, do_2PLUS, do_TO_R