1 ! Copyright (C) 2008 Slava Pestov.
2 ! See http://factorcode.org/license.txt for BSD license.
3 USING: accessors classes sequences splitting kernel namespaces
4 make words math math.parser io.styles prettyprint assocs ;
7 GENERIC: summary ( object -- string )
9 : object-summary ( object -- string )
10 class name>> " instance" append ;
12 M: object summary object-summary ;
17 string>> "\n" split1 swap %
21 M: word summary synopsis ;
39 ! Override sequence => integer instance
40 M: f summary object-summary ;
42 M: integer summary object-summary ;