Fix typo in history completion

2006-11-13 05:19:23 +00:00 · 2006-11-13 05:19:23 +00:00 · 593ba060d3
parent c77ce5cbd2
commit 593ba060d3
1 changed files with 1 additions and 1 deletions
--- a/library/ui/tools/search.factor
+++ b/library/ui/tools/search.factor
@ -87,5 +87,5 @@ M: live-search focusable-child* live-search-field ;

 : <history-search> ( string seq action -- gadget )
    swap [ string-completions ] curry
-    [ dup <input> write-object ]
+    [ first dup <input> write-object ]
    <live-search> ;