Fix typo in history completion
parent
c77ce5cbd2
commit
593ba060d3
|
@ -87,5 +87,5 @@ M: live-search focusable-child* live-search-field ;
|
||||||
|
|
||||||
: <history-search> ( string seq action -- gadget )
|
: <history-search> ( string seq action -- gadget )
|
||||||
swap [ string-completions ] curry
|
swap [ string-completions ] curry
|
||||||
[ dup <input> write-object ]
|
[ first dup <input> write-object ]
|
||||||
<live-search> ;
|
<live-search> ;
|
||||||
|
|
Loading…
Reference in New Issue