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

[factor.git] / extra / money / money.factor

diff --git a/extra/money/money.factor b/extra/money/money.factor
index 431f250a2cd3abcbd053f41168735a1abed116ac..a3ac4ebb136715a01cdfedc0f4650b16462fe1eb 100644 (file)
--- a/extra/money/money.factor
+++ b/extra/money/money.factor
@@ -26,7 +26,7 @@ ERROR: not-an-integer x ;
     [ "-" ?head swap ] dip
     [ [ "0" ] when-empty ] bi@
     [
-        [ dup string>number [ nip ] [ throw-not-an-integer ] if* ] bi@
+        [ dup string>number [ nip ] [ not-an-integer ] if* ] bi@
     ] keep length
     10^ / + swap [ neg ] when ;