ui.tools.listener.completion: delay history-list to allow live searching.

diff --git a/basis/ui/tools/listener/completion/completion.factor b/basis/ui/tools/listener/completion/completion.factor
index 5ef9083d709dd118cdbc01842674d98b0c8e58e7..37f09f5c14d0023bee21970513c646590b5032d0 100644 (file)
--- a/basis/ui/tools/listener/completion/completion.factor
+++ b/basis/ui/tools/listener/completion/completion.factor
@@ -35,7 +35,7 @@ GENERIC: completion-quot ( interactor completion-mode -- quot )
 M: word-completion completion-quot [ words-matching ] (completion-quot) ;
 M: vocab-completion completion-quot [ vocabs-matching ] (completion-quot) ;
 M: char-completion completion-quot [ chars-matching ] (completion-quot) ;
-M: history-completion completion-quot drop history-list [ completions ] curry ;
+M: history-completion completion-quot drop '[ _ history-list completions ] ;
 
 GENERIC: completion-element ( completion-mode -- element )