From 76e32e8a5f4643b8516c94c8f74d35df4437ccac Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 25 Nov 2013 16:25:02 -0800 Subject: [PATCH] summary: adding summary of sets. --- basis/summary/summary.factor | 13 ++++++++++--- 1 file changed, 10 insertions(+), 3 deletions(-) diff --git a/basis/summary/summary.factor b/basis/summary/summary.factor index 89f4a61af6..fb46d3f11b 100644 --- a/basis/summary/summary.factor +++ b/basis/summary/summary.factor @@ -1,13 +1,12 @@ ! Copyright (C) 2008 Slava Pestov. ! See http://factorcode.org/license.txt for BSD license. USING: accessors assocs classes continuations kernel make math -math.parser sequences ; +math.parser sequences sets ; IN: summary GENERIC: summary ( object -- string ) -: object-summary ( object -- string ) - class-of name>> ; inline +: object-summary ( object -- string ) class-of name>> ; inline M: object summary object-summary ; @@ -27,6 +26,14 @@ M: assoc summary " entries" % ] "" make ; +M: set summary + [ + dup class-of name>> % + " with " % + cardinality # + " members" % + ] "" make ; + ! Override sequence => integer instance M: f summary object-summary ;