X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=extra%2Frpn%2Frpn.factor;fp=extra%2Frpn%2Frpn.factor;h=fd39ed09a8e64a2cda5f1c68fd342c63c93e7965;hp=ba697df8d1039f4ad489f571ad4a7c00f5820963;hb=54cca48aca19e5564ed7c49ef56e5ad79f962919;hpb=325d1bac2a0403e26206a4c98a41188b05b6e865

diff --git a/extra/rpn/rpn.factor b/extra/rpn/rpn.factor
index ba697df8d1..fd39ed09a8 100644
--- a/extra/rpn/rpn.factor
+++ b/extra/rpn/rpn.factor
@@ -10,7 +10,7 @@ TUPLE: push-insn value ;
 GENERIC: eval-insn ( stack insn -- stack )
 
 : binary-op ( stack quot: ( x y -- z ) -- stack )
-    [ uncons uncons [ swap ] dip ] dip dip cons ; inline
+    [ uncons uncons swapd ] dip dip cons ; inline
 
 M: add-insn eval-insn drop [ + ] binary-op ;
 M: sub-insn eval-insn drop [ - ] binary-op ;