$values. ( word -- )

Vocabulary

tools.scaffold.private

Inputs

word

an object

Outputs

None

Definition

USING: accessors io kernel sequences sets words ;

IN: tools.scaffold.private

: $values. ( word -- )
    "declared-effect" word-prop [
        [ in>> ] [ out>> ] bi 2dup [ empty? ] both?
        [ 2drop ] [
            [ members ] dip over diff "{ $values" print
            [ drop ($values.) ] [ ?print-nl ] [ nip ($values.) ]
            2tri nl "}" print
        ] if
    ] when* ;