From a6e0df75ea489c7fa22dc41d7775d1c39e7aa01c Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Thu, 15 Jan 2009 17:56:09 -0600
Subject: [PATCH] use sigma

---
 basis/roman/roman.factor | 10 ++++------
 1 file changed, 4 insertions(+), 6 deletions(-)

diff --git a/basis/roman/roman.factor b/basis/roman/roman.factor
index 866ac92872..c9394b07ed 100644
--- a/basis/roman/roman.factor
+++ b/basis/roman/roman.factor
@@ -39,16 +39,14 @@ ERROR: roman-range-error n ;
 PRIVATE>
 
 : >roman ( n -- str )
-    dup roman-range-check [
-        (>roman)
-    ] "" make ;
+    dup roman-range-check
+    [ (>roman) ] "" make ;
 
 : >ROMAN ( n -- str ) >roman >upper ;
 
 : roman> ( str -- n )
-    >lower [ roman<= ] monotonic-split [
-        (roman>)
-    ] map sum ;
+    >lower [ roman<= ] monotonic-split
+    [ (roman>) ] sigma ;
 
 <PRIVATE