remove >r r>

2008-12-14 00:44:23 -06:00 · 2008-12-14 00:44:23 -06:00 · 3b5a6b8dc9
parent 1ef79bc87f
commit 3b5a6b8dc9
1 changed files with 1 additions and 1 deletions
--- a/extra/taxes/usa/federal/federal.factor
+++ b/extra/taxes/usa/federal/federal.factor
@ -56,4 +56,4 @@ M: federal withholding* ( salary w4 tax-table entity -- x )
    ] if ;

 : net ( salary w4 collector -- x )
-    >r dupd r> total-withholding - ;
+    [ dupd ] dip total-withholding - ;