factor: alien.c-types:short -> cramp

[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 a3d205f3785a40b9ac73c2ead82503438de312f2..8a2cf7ce3e69447d53a3c57c9f1b0272434896bd 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 short head ] <arrow> ;
+    [ <element-model> ] dip '[ @ >alist 100 cramp head ] <arrow> ;
 
 M: completion-popup focusable-child* table>> ;