basis: ERROR: changes.

[factor.git] / basis / heaps / heaps.factor

diff --git a/basis/heaps/heaps.factor b/basis/heaps/heaps.factor
index b92bfe36687087cc668f8ca19fe2f674acb2e038..3f41c1bc26ca984e4b3d15544b0f811295a5cda0 100644 (file)
--- a/basis/heaps/heaps.factor
+++ b/basis/heaps/heaps.factor
@@ -24,7 +24,7 @@ TUPLE: heap { data vector } ;
 ERROR: not-a-heap object ;
 
 : check-heap ( heap -- heap )
-    dup heap? [ not-a-heap ] unless ; inline
+    dup heap? [ throw-not-a-heap ] unless ; inline
 
 TUPLE: entry value key heap index ;
 
@@ -164,7 +164,7 @@ M: bad-heap-delete summary
 <PRIVATE
 
 : entry>index ( entry heap -- n )
-    over heap>> eq? [ bad-heap-delete ] unless
+    over heap>> eq? [ throw-bad-heap-delete ] unless
     index>> { fixnum } declare ; inline
 
 PRIVATE>