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

Merge git://factorcode.org/git/factor

db4
Eduardo Cavazos 2008-02-11 18:41:45 -06:00
parent fb13521418 3bd8e8b402
commit 7fd45922f8
1 changed files with 4 additions and 13 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
extra/taxes/taxes.factor
View File

@ -41,7 +41,6 @@ TUPLE: fica-base-unknown ;
MIXIN: collector MIXIN: collector
GENERIC: adjust-allowances ( salary w4 collector -- newsalary ) GENERIC: adjust-allowances ( salary w4 collector -- newsalary )
GENERIC: withholding ( salary w4 collector -- x ) GENERIC: withholding ( salary w4 collector -- x )
GENERIC: net ( salary w4 collector -- x )
TUPLE: tax-table single married ; TUPLE: tax-table single married ;
@ -102,9 +101,6 @@ M: federal withholding ( salary w4 tax-table -- x )
[ fica-tax ] 2keep [ fica-tax ] 2keep
medicare-tax + + ; medicare-tax + + ;
M: federal net ( salary w4 collector -- x )
>r dupd r> withholding - ;
! Minnesota ! Minnesota
: minnesota-single ( -- triples ) : minnesota-single ( -- triples )
@ -134,14 +130,9 @@ 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 ; : employer-withhold ( salary w4 collector -- x )
INSTANCE: total collector
! Totals
M: total net ( salary w4 collector -- x )
>r dupd r>
[ withholding ] 3keep [ withholding ] 3keep
drop <federal> withholding + - ; dup federal? [ 3drop ] [ drop <federal> withholding + ] if ;
M: total withholding ( salary w4 collector -- x ) : net ( salary w4 collector -- x )
>r >r dup r> r> net - ; >r dupd r> employer-withhold - ;