X-Git-Url: https://git.kengrimes.com/?p=watForth.git;a=blobdiff_plain;f=forth.wat;h=0c4b767e5706af4487112c17cd8ea279d22e4331;hp=a3a61e5cede20bfe3a5aa4f4dc0a63222eb2266b;hb=1b642df6dc1da4bdbe2c389899bb4be072bc0b1e;hpb=b9be17929d350bf4ab9c747e29ae6c1203035111

diff --git a/forth.wat b/forth.wat
index a3a61e5..0c4b767 100644
--- a/forth.wat
+++ b/forth.wat
@@ -359,12 +359,14 @@
         br $next
       end ;; rot
         call $pop
-        set_local $eax
         call $pop
+        set_local $eax
         call $pop
-        get_local $eax
+        call $rpush
         call $push
+        call $rpop
         call $push
+        get_local $eax
         call $push
         br $next
       end ;; dup2