see* ( defspec -- )
Factor handbook » Developer tools » Printing definitions

Prev:	see-methods ( word -- )
Next:	synopsis* ( defspec -- )

Vocabulary
see

Inputs

defspec

an object

Outputs
None

Definition

IN: see

GENERIC: see* ( defspec -- )

Methods

USING: classes.error see see.private ;

M: error-class see* see-class ;


USING: definitions kernel namespaces prettyprint
prettyprint.backend prettyprint.config prettyprint.sections see
see.private ;

M: object see*
    [
        12 nesting-limit set 100 length-limit set
        <colon dup synopsis*
        <block dup definition pprint-elements
        block> dup definer nip [ pprint-word ] when*
        declarations. block>
    ] with-use ;


USING: classes generic io kernel see see.private words
words.symbol ;

M: word see*
    [ see-class ]
    [ [ class? ] [ symbol? not ] bi and [ nl nl ] when ] [
        dup [ class? ] [ symbol? ] bi and
        [ drop ] [ M\ word see* (call-next-method) ] if
    ] tri ;