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

[factor.git] / extra / decimals / decimals-tests.factor

diff --git a/extra/decimals/decimals-tests.factor b/extra/decimals/decimals-tests.factor
index fc48561e8c987f014b4b9d5d66a4502885d7ea78..726212b0ea76afa5b43508dc00b803d8746dafc1 100644 (file)
--- a/extra/decimals/decimals-tests.factor
+++ b/extra/decimals/decimals-tests.factor
@@ -21,7 +21,7 @@ ERROR: decimal-test-failure D1 D2 quot ;
     D1 D2
     quot1 [ decimal>ratio >float ] compose
     [ [ decimal>ratio ] bi@ quot2 call( obj obj -- obj ) >float ] 2bi -.1 ~
-    [ t ] [ D1 D2 quot1 throw-decimal-test-failure ] if ; inline
+    [ t ] [ D1 D2 quot1 decimal-test-failure ] if ; inline
 
 : test-decimal-op ( quot1 quot2 -- ? )
     [ random-test-decimal random-test-decimal ] 2dip (test-decimal-op) ; inline