Handbook
Glossary
total-withholding ( salary w4 tax-table -- x )
Vocabulary
taxes
.
usa
.
federal
Inputs
salary
an
object
w4
an
object
tax-table
an
object
Outputs
x
an
object
Definition
USING:
accessors
kernel
math
taxes.usa
;
IN:
taxes.usa.federal
:
total-withholding
( salary w4 tax-table -- x )
dup
entity>>
dup
federal
=
[
withholding*
]
[
drop
[
drop
<federal>
federal
withholding*
]
[
dup
entity>>
withholding*
]
3bi
+
]
if
;