From df4d652c0a86971222dfc5b58e68f445cecfcf5c Mon Sep 17 00:00:00 2001
From: Doug Coleman <erg@jobim.local>
Date: Sat, 28 Mar 2009 15:02:28 -0500
Subject: [PATCH] less stack shuffling

---
 basis/roman/roman.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/basis/roman/roman.factor b/basis/roman/roman.factor
index 66fb3b302a..92202da8ca 100644
--- 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>