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

add some taxes stuff

db4
Doug Coleman 2008-05-23 23:23:41 -05:00
parent f706b50ac7
commit 104baa137c
1 changed files with 7 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
extra/taxes/taxes.factor
View File

@ -33,6 +33,13 @@ TUPLE: fica-base-unknown ;
! Employer tax only, not withheld ! Employer tax only, not withheld
: futa-tax-rate ( -- x ) DECIMAL: .062 ; inline : futa-tax-rate ( -- x ) DECIMAL: .062 ; inline
: futa-base-rate ( -- x ) 7000 ; inline
: futa-tax-offset-credit ( -- x ) DECIMAL: .054 ; inline
: futa-tax ( salary w4 -- x )
drop futa-base-rate min
futa-tax-rate futa-tax-offset-credit -
* ;
! No base rate for medicare; all wages subject ! No base rate for medicare; all wages subject
: medicare-tax-rate ( -- x ) DECIMAL: .0145 ; inline : medicare-tax-rate ( -- x ) DECIMAL: .0145 ; inline