From dd4aea9ca83cc52609c5487af4fe659f11d054c9 Mon Sep 17 00:00:00 2001
From: Slava Pestov <slava@slava-pestovs-macbook-pro.local>
Date: Mon, 2 Feb 2009 03:33:23 -0600
Subject: [PATCH] strings.tables: use [ max ] map-reduce

---
 basis/strings/tables/tables.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/basis/strings/tables/tables.factor b/basis/strings/tables/tables.factor
index d8aced9da0..c6ccba5a78 100644
--- a/basis/strings/tables/tables.factor
+++ b/basis/strings/tables/tables.factor
@@ -1,13 +1,13 @@
 ! Copyright (C) 2009 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: kernel sequences fry ;
+USING: kernel sequences fry math.order ;
 IN: strings.tables
 
 <PRIVATE
 
 : format-column ( seq ? -- seq )
     [
-        dup [ length ] map supremum
+        dup [ length ] [ max ] map-reduce
         '[ _ CHAR: \s pad-tail ] map
     ] unless ;