ui.tools.listener: selecting a word from a completion popup now behaves like a USE: followed by a FROM:

Slava Pestov 2009-07-18 06:55:15 -05:00
parent a222fc6bd2
commit 469043fc31
1 changed files with 2 additions and 1 deletions

View File

@ -304,7 +304,8 @@ M: listener-operation invoke-command ( target command -- )
: use-if-necessary ( word manifest -- )
2dup [ vocabulary>> ] dip and [
manifest [
vocabulary>> use-vocab
[ vocabulary>> use-vocab ]
[ dup name>> associate use-words ] bi
] with-variable
] [ 2drop ] if ;