steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

add total collector to taxes

db4
Doug Coleman 2008-02-11 18:11:29 -06:00
parent 36d1cae83e
commit 0b9d1c5141
1 changed files with 12 additions and 5 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/taxes/taxes.factor
View File

@ -105,11 +105,6 @@ M: federal withholding ( salary w4 tax-table -- x )
M: federal net ( salary w4 collector -- x ) M: federal net ( salary w4 collector -- x )
>r dupd r> withholding - ; >r dupd r> withholding - ;
M: collector net ( salary w4 collector -- x )
>r dupd r>
[ withholding ] 3keep
drop <federal> withholding + - ;
! Minnesota ! Minnesota
: minnesota-single ( -- triples ) : minnesota-single ( -- triples )
@ -138,3 +133,15 @@ M: minnesota adjust-allowances ( salary w4 collector -- newsalary )
M: minnesota withholding ( salary w4 collector -- x ) M: minnesota withholding ( salary w4 collector -- x )
[ adjust-allowances ] 2keep marriage-table tax ; [ adjust-allowances ] 2keep marriage-table tax ;
TUPLE: total ;
INSTANCE: total collector
! Totals
M: total net ( salary w4 collector -- x )
>r dupd r>
[ withholding ] 3keep
drop <federal> withholding + - ;
M: total withholding ( salary w4 collector -- x )
>r >r dup r> r> net - ;