sequences: bound -> index-or-length

[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 a67a0766959e286984914c321216353f752a495c..56cbc24f155c4b609ea837d553f7ecd2f2d49e79 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 bound head ] <arrow> ;
+    [ <element-model> ] dip '[ @ >alist 100 index-or-length head ] <arrow> ;
 
 M: completion-popup focusable-child* table>> ;