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

[factor.git] / basis / boxes / boxes.factor

diff --git a/basis/boxes/boxes.factor b/basis/boxes/boxes.factor
index 585389a5711bb9b4a88a017da32e431c3fe55300..25f2b963b414cba8cbcb345b628ddf844ad15609 100644 (file)
--- a/basis/boxes/boxes.factor
+++ b/basis/boxes/boxes.factor
@@ -11,7 +11,7 @@ ERROR: box-full box ;
 
 : >box ( value box -- )
     dup occupied>>
-    [ throw-box-full ] [ t >>occupied value<< ] if ; inline
+    [ box-full ] [ t >>occupied value<< ] if ; inline
 
 ERROR: box-empty box ;