core: cramp -> bound (was short)

[factor.git] / basis / ui / gadgets / incremental / incremental.factor

diff --git a/basis/ui/gadgets/incremental/incremental.factor b/basis/ui/gadgets/incremental/incremental.factor
index 39ce251b5ab59b486fb0cbc077c4b003dc73f54a..578594ad2985e7f693ac9d4581c722633a04a9be 100644 (file)
--- a/basis/ui/gadgets/incremental/incremental.factor
+++ b/basis/ui/gadgets/incremental/incremental.factor
@@ -39,7 +39,7 @@ M: incremental dim-changed drop ;
     dup children>> length 200,000 > [
         ! We let the length oscillate between 100k-200k, so we don't
         ! have to relayout the container every time a gadget is added.
-        [ 100,000 cramp cut* ] change-children
+        [ 100,000 bound cut* ] change-children
 
         ! Unfocus if any focused gadgets were removed and relayout
         dup focus>> pick member-eq? [ f >>focus ] when relayout yield