change ERROR: words from throw-foo back to foo.

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

diff --git a/extra/taxes/usa/fica/fica.factor b/extra/taxes/usa/fica/fica.factor
index 181a891ea296903d6aa47fb19554e034be6fd596..4541a15eca34c04cad80305d4bbb701921d049d5 100644 (file)
--- a/extra/taxes/usa/fica/fica.factor
+++ b/extra/taxes/usa/fica/fica.factor
@@ -12,7 +12,7 @@ ERROR: fica-base-unknown ;
         { 2009 106800 }
         { 2008 102000 }
         { 2007  97500 }
-    } at [ throw-fica-base-unknown ] unless* ;
+    } at [ fica-base-unknown ] unless* ;
 
 : fica-tax ( salary w4 -- x )
     year>> fica-base-rate min fica-tax-rate * ;