From f101ca606da2be44da1c863a88227d34b9839f0a Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 5 Feb 2009 09:09:24 -0600
Subject: [PATCH] use bi

---
 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 81a6d69a09..24713545b1 100644
--- 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 -