factor: trim using lists

[factor.git] / extra / taxes / usa / futa / futa.factor

diff --git a/extra/taxes/usa/futa/futa.factor b/extra/taxes/usa/futa/futa.factor
index 36d3097007ee352246e44d344e648951a92988d2..25945071fe9bdf3916af7e6a00cf8c7bd98fa900 100644 (file)
--- a/extra/taxes/usa/futa/futa.factor
+++ b/extra/taxes/usa/futa/futa.factor
@@ -1,7 +1,6 @@
 ! Copyright (C) 2008 Doug Coleman.
 ! See http://factorcode.org/license.txt for BSD license.
-USING: accessors arrays assocs kernel math math.intervals
-namespaces sequences combinators.lib money math.order ;
+USING: kernel math math.order money ;
 IN: taxes.usa.futa
 
 ! Employer tax only, not withheld
@@ -11,5 +10,4 @@ IN: taxes.usa.futa
 
 : futa-tax ( salary w4 -- x )
     drop futa-base-rate min
-    futa-tax-rate futa-tax-offset-credit -
-    * ;
+    futa-tax-rate futa-tax-offset-credit - * ;