marriage-table ( w4 tax-table -- triples )

Vocabulary

taxes.usa

Inputs

w4	an object
tax-table	an object

Outputs

triples

an object

Definition

USING: accessors kernel ;

IN: taxes.usa

: marriage-table ( w4 tax-table -- triples )
    swap married?>> [ married>> ] [ single>> ] if ;