less stack shuffling

diff --git a/basis/roman/roman.factor b/basis/roman/roman.factor
index 66fb3b302a492cfb7176446001e974c215a14a2d..92202da8caab2535e55062d13aabe0140cfe31aa 100644 (file)
--- a/basis/roman/roman.factor
+++ b/basis/roman/roman.factor
@@ -51,7 +51,7 @@ PRIVATE>
 <PRIVATE
 
 MACRO: binary-roman-op ( quot -- quot' )
-    dup infer [ in>> swap ] [ out>> ] bi
+    [ infer in>> ] [ ] [ infer out>> ] tri
     '[ [ roman> ] _ napply @ [ >roman ] _ napply ] ;
 
 PRIVATE>