core: cramp -> bound (was short)

[factor.git] / basis / ui / tools / listener / completion / completion.factor

diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index 8a2cf7ce3e69447d53a3c57c9f1b0272434896bd..a67a0766959e286984914c321216353f752a495c 100644 (file)
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -120,7 +120,7 @@ TUPLE: completion-popup < track interactor table completion-mode ;
     [ completion-popup? ] find-parent ;
 
 : <completion-model> ( editor element quot -- model )
-    [ <element-model> ] dip '[ @ >alist 100 cramp head ] <arrow> ;
+    [ <element-model> ] dip '[ @ >alist 100 bound head ] <arrow> ;
 
 M: completion-popup focusable-child* table>> ;