basis: ERROR: changes.

[factor.git] / basis / tr / tr.factor

diff --git a/basis/tr/tr.factor b/basis/tr/tr.factor
index b937b25b932357e5981928c395241b10680106b9..f6349e091e896195c5559cf3b797e5e06eac05c6 100644 (file)
--- a/basis/tr/tr.factor
+++ b/basis/tr/tr.factor
@@ -15,7 +15,7 @@ M: bad-tr summary
 : tr-nth ( n mapping -- ch ) nth-unsafe 127 bitand ; inline
 
 : check-tr ( from to -- )
-    [ [ ascii? ] all? ] both? [ bad-tr ] unless ;
+    [ [ ascii? ] all? ] both? [ throw-bad-tr ] unless ;
 
 : compute-tr ( quot from to -- mapping )
     [ 128 iota ] 3dip zip