basis: ERROR: changes.

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

diff --git a/basis/interval-maps/interval-maps.factor b/basis/interval-maps/interval-maps.factor
index a089fa3972ff63491b21d00af2ece8e39e90b104..9412eaf57705690d2fdc6d558b36442fda00f202 100644 (file)
--- a/basis/interval-maps/interval-maps.factor
+++ b/basis/interval-maps/interval-maps.factor
@@ -34,7 +34,7 @@ ALIAS: value third-unsafe
 ERROR: not-an-interval-map obj ;
 
 : check-interval-map ( map -- map )
-    dup interval-map? [ not-an-interval-map ] unless ; inline
+    dup interval-map? [ throw-not-an-interval-map ] unless ; inline
 
 PRIVATE>