filter-tuple-assoc ( slot,value -- name,value )

Vocabulary

prettyprint.backend

Inputs

slot,value

an object

Outputs

name,value

an object

Definition

USING: accessors assocs kernel ;

IN: prettyprint.backend

: filter-tuple-assoc ( slot,value -- name,value )
    [ [ initial>> ] dip = ] assoc-reject
    [ [ name>> ] dip ] assoc-map ;