basis: ERROR: changes.

[factor.git] / basis / interval-sets / interval-sets.factor

diff --git a/basis/interval-sets/interval-sets.factor b/basis/interval-sets/interval-sets.factor
index 6668a3c9102cc7ecbbc3261a9508964e5be33ade..3ef65ab55eb713283df5ef232fc24c6255152326 100644 (file)
--- a/basis/interval-sets/interval-sets.factor
+++ b/basis/interval-sets/interval-sets.factor
@@ -14,7 +14,7 @@ TUPLE: interval-set { array uint-array read-only } ;
 ERROR: not-an-interval-set obj ;
 
 : check-interval-set ( map -- map )
-    dup interval-set? [ not-an-interval-set ] unless ; inline
+    dup interval-set? [ throw-not-an-interval-set ] unless ; inline
 
 PRIVATE>