change ERROR: words from throw-foo back to foo.

[factor.git] / extra / memory / piles / piles.factor

diff --git a/extra/memory/piles/piles.factor b/extra/memory/piles/piles.factor
index 778dd8e7fb84101ff060163d7d7210cc2f3932fc..d635b4d83c8c16e5774ed0dd488f7004f7fb2bf0 100644 (file)
--- a/extra/memory/piles/piles.factor
+++ b/extra/memory/piles/piles.factor
@@ -21,7 +21,7 @@ M: pile dispose
 : pile-alloc ( pile size -- alien )
     [
         [ [ ] [ size>> ] [ offset>> ] tri ] dip +
-        < [ throw-not-enough-pile-space ] [ drop ] if
+        < [ not-enough-pile-space ] [ drop ] if
     ] [
         drop [ offset>> ] [ underlying>> ] bi <displaced-alien>
     ] [