basis: ERROR: changes.

[factor.git] / basis / roman / roman.factor

diff --git a/basis/roman/roman.factor b/basis/roman/roman.factor
index 346226bf4e7cb5659e873b66cdc77ece722f4f2d..a5791d7ac7ce54cc8f2498835f98bbd683bd592f 100644 (file)
--- a/basis/roman/roman.factor
+++ b/basis/roman/roman.factor
@@ -18,7 +18,7 @@ CONSTANT: roman-values
 ERROR: roman-range-error n ;
 
 : roman-range-check ( n -- n )
-    dup 1 10000 between? [ roman-range-error ] unless ;
+    dup 1 10000 between? [ throw-roman-range-error ] unless ;
 
 : roman-digit-index ( ch -- n )
     1string roman-digits index ; inline