steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

summary: can't use formatting or it breaks bootstrap.

locals-and-roots
John Benediktsson 2016-03-25 09:42:04 -07:00
parent e075ea02a8
commit c50e75ca85
1 changed files with 6 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
basis/summary/summary.factor
View File

@ -1,7 +1,7 @@
! Copyright (C) 2008 Slava Pestov. ! Copyright (C) 2008 Slava Pestov.
! See http://factorcode.org/license.txt for BSD license. ! See http://factorcode.org/license.txt for BSD license.
USING: accessors assocs classes continuations formatting kernel math USING: accessors assocs classes continuations kernel make math
sequences sets strings ; math.parser sequences sets strings ;
IN: summary IN: summary
GENERIC: summary ( object -- string ) GENERIC: summary ( object -- string )
@ -9,7 +9,9 @@ GENERIC: summary ( object -- string )
: object-summary ( object -- string ) class-of name>> ; inline : object-summary ( object -- string ) class-of name>> ; inline
: container-summary ( obj size word -- str ) : container-summary ( obj size word -- str )
[ object-summary ] 2dip "%s with %d %s" sprintf ; [ object-summary ] 2dip [
[ % " with " % ] [ # ] [ " " % % ] tri*
] "" make ;
GENERIC: tuple-summary ( object -- string ) GENERIC: tuple-summary ( object -- string )
@ -17,7 +19,7 @@ M: assoc tuple-summary
dup assoc-size "entries" container-summary ; dup assoc-size "entries" container-summary ;
M: object tuple-summary M: object tuple-summary
class-of "a %s tuple" sprintf ; class-of name>> "a " " tuple" surround ;
M: unordered-set tuple-summary M: unordered-set tuple-summary
dup cardinality "members" container-summary ; dup cardinality "members" container-summary ;