From 3967b19aa5078ec53b59e4207c95df0dcebfcc45 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Wed, 6 Jun 2012 15:12:33 -0700
Subject: [PATCH] math.parser: better error messages suggested by @erg.

---
 core/math/parser/parser.factor | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/core/math/parser/parser.factor b/core/math/parser/parser.factor
index ffb2293f22..244caf3259 100644
--- a/core/math/parser/parser.factor
+++ b/core/math/parser/parser.factor
@@ -11,6 +11,10 @@ IN: math.parser
                              [ CHAR: a 10 - - dup 10 < [ drop 255 ] when ]
     } cond ; inline
 
+ERROR: invalid-radix radix ;
+
+ERROR: invalid-base n base ;
+
 <PRIVATE
 
 TUPLE: number-parse 
@@ -309,7 +313,7 @@ PRIVATE>
 <PRIVATE
 
 : positive>base ( num radix -- str )
-    dup 1 <= [ "Invalid radix" throw ] when
+    dup 1 <= [ invalid-radix ] when
     [ dup 0 > ] swap [ /mod >digit ] curry "" produce-as nip
     reverse! ; inline
 
@@ -409,7 +413,7 @@ M: ratio >base
     {
         { 16 [ float>hex ] }
         { 10 [ "%.16g" format-float ] }
-        [ "Invalid base" throw ]
+        [ invalid-base ]
     } case ; inline
 
 PRIVATE>