From e075ea02a8979eb04c65575fe88acf928b793dd8 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Bj=C3=B6rn=20Lindqvist?= <bjourne@gmail.com>
Date: Fri, 25 Mar 2016 14:46:37 +0100
Subject: [PATCH] summary: string summary should say characters, not elements

---
 basis/summary/summary-tests.factor | 2 +-
 basis/summary/summary.factor       | 5 ++++-
 2 files changed, 5 insertions(+), 2 deletions(-)

diff --git a/basis/summary/summary-tests.factor b/basis/summary/summary-tests.factor
index 057280bf2c..a8d0e18139 100644
--- a/basis/summary/summary-tests.factor
+++ b/basis/summary/summary-tests.factor
@@ -2,7 +2,7 @@ USING: combinators continuations kernel summary tools.test ;
 IN: summary.tests
 
 { "array with 2 elements" } [ { 1 2 } summary ] unit-test
-{ "string with 5 elements" } [ "hello" summary ] unit-test
+{ "string with 5 characters" } [ "hello" summary ] unit-test
 { "hash-set with 3 members" } [ HS{ 1 2 3 } summary ] unit-test
 { "hashtable with 1 entries" } [ H{ { 3 4 } } summary ] unit-test
 { "Quotation's stack effect does not match call site" } [
diff --git a/basis/summary/summary.factor b/basis/summary/summary.factor
index 2b97790c23..6871186b63 100644
--- a/basis/summary/summary.factor
+++ b/basis/summary/summary.factor
@@ -1,7 +1,7 @@
 ! Copyright (C) 2008 Slava Pestov.
 ! See http://factorcode.org/license.txt for BSD license.
 USING: accessors assocs classes continuations formatting kernel math
-sequences sets ;
+sequences sets strings ;
 IN: summary
 
 GENERIC: summary ( object -- string )
@@ -30,6 +30,9 @@ M: object summary object-summary ;
 M: sequence summary
     dup length "elements" container-summary ;
 
+M: string summary
+    dup length "characters" container-summary ;
+
 ! Override sequence => integer instance
 M: f summary object-summary ;