use bi

diff --git a/basis/roman/roman.factor b/basis/roman/roman.factor
index 81a6d69a09a9fb69749a61b63e96301cf9208ae6..24713545b136a92064b058569f5719cae4c05716 100644 (file)
--- 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 -