use bi

2009-02-05 09:09:24 -06:00 · 2009-02-05 09:09:24 -06:00 · f101ca606d
parent 5d3ee9bf57
commit f101ca606d
1 changed files with 1 additions and 1 deletions
--- a/basis/roman/roman.factor
+++ b/basis/roman/roman.factor
@ -31,7 +31,7 @@ ERROR: roman-range-error n ;
    ] 2each drop ;

 : (roman>) ( seq -- n )
-    dup [ roman>n ] map swap all-eq? [
+    [ [ roman>n ] map ] [ all-eq? ] bi [
        sum
    ] [
        first2 swap -