withholding* ( salary w4 tax-table entity -- x )


Vocabulary
taxes.usa

Inputs
salaryan object
w4an object
tax-tablean object
entityan object


Outputs
xan object


Definition
IN: taxes.usa

GENERIC: withholding* ( salary w4 tax-table entity -- x )


Methods
USING: kernel taxes.usa usa-cities ;

M: MN withholding*
drop [ adjust-allowances ] 2keep marriage-table tax ;


USING: kernel math taxes.usa taxes.usa.federal taxes.usa.fica
taxes.usa.medicare ;

M: federal withholding*
drop [ federal-tax ] 2keepd [ fica-tax ] 2keep medicare-tax
+ + ;