From 73352a3437615af825a926b1848b6dd5e3f0c53b Mon Sep 17 00:00:00 2001
From: erg <erg@erg-desktop.(none)>
Date: Tue, 20 May 2008 10:17:34 -0500
Subject: [PATCH] better error reporting for DECIMAL:

---
 extra/money/money.factor | 7 ++-----
 1 file changed, 2 insertions(+), 5 deletions(-)

diff --git a/extra/money/money.factor b/extra/money/money.factor
index 4584daf592..1fd0a66555 100644
--- a/extra/money/money.factor
+++ b/extra/money/money.factor
@@ -15,17 +15,14 @@ IN: money
         "." % number>string 2 CHAR: 0 pad-left %
     ] "" make print ;
 
-TUPLE: not-a-decimal ;
-
-: not-a-decimal ( -- * )
-    T{ not-a-decimal } throw ;
+ERROR: not-a-decimal x ;
 
 : parse-decimal ( str -- ratio )
     "." split1
     >r dup "-" head? [ drop t "0" ] [ f swap ] if r>
     [ dup empty? [ drop "0" ] when ] bi@
     dup length
-    >r [ string>number dup [ not-a-decimal ] unless ] bi@ r>
+    >r [ dup string>number [ nip ] [ not-a-decimal ] if* ] bi@ r>
     10 swap ^ / + swap [ neg ] when ;
 
 : DECIMAL: