ui.tools.listener.completion: fix use of search-vocab-names.
parent
dc395a6b31
commit
5f165095dc
|
@ -73,7 +73,7 @@ M: definition-completion row-columns
|
|||
M: word-completion row-color
|
||||
[ vocabulary>> ] [ manifest>> ] bi* {
|
||||
{ [ dup not ] [ COLOR: black ] }
|
||||
{ [ 2dup search-vocab-names>> keys member? ] [ COLOR: black ] }
|
||||
{ [ 2dup search-vocab-names>> in? ] [ COLOR: black ] }
|
||||
{ [ over ".private" tail? ] [ COLOR: dark-red ] }
|
||||
[ COLOR: dark-gray ]
|
||||
} cond 2nip ;
|
||||
|
|
Loading…
Reference in New Issue