less stack shuffling

2009-03-28 15:02:28 -05:00 · 2009-03-28 15:02:28 -05:00 · df4d652c0a
parent 5460a5375e
commit df4d652c0a
1 changed files with 1 additions and 1 deletions
--- 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>