X-Git-Url: https://git.rrq.au/?a=blobdiff_plain;ds=sidebyside;f=test_stack.f;h=1c4563d4e6c185ca4fc9810dd0b2e6e2eba7f732;hb=HEAD;hp=e8e558d947f072f851074e9aa94040befacfefa5;hpb=a28fd94bb9711f62659bc89a275af9eb7134bece;p=rrq%2Fjonesforth.git

diff --git a/test_stack.f b/test_stack.f
index e8e558d..1c4563d 100644
--- a/test_stack.f
+++ b/test_stack.f
@@ -7,8 +7,8 @@
 	23 DROP DEPTH . CR
 	1 2 SWAP . . CR
 	1 2 OVER . . . CR
-	1 2 3 ROT . . . CR
 	1 2 3 -ROT . . . CR
+	1 2 3 ROT . . . CR
 	1 2 3 4 2DROP . . CR
 	1 2 3 4 2DUP . . . . . . CR
 	1 2 3 4 2SWAP . . . . CR