readline-listener: fix for tools.completion renames.

db4
John Benediktsson 2013-03-20 23:06:40 -07:00
parent 11e86ec53c
commit a1df905535
1 changed files with 2 additions and 2 deletions

View File

@ -41,8 +41,8 @@ M: readline-reader prompt.
completions tget [ nip ] [ completions tget [ nip ] [
completion-line " \r\n" split { completion-line " \r\n" split {
{ [ dup complete-vocab? ] [ drop prefixed-vocabs ] } { [ dup complete-vocab? ] [ drop prefixed-vocabs ] }
{ [ dup complete-CHAR:? ] [ drop prefixed-chars ] } { [ dup complete-char? ] [ drop prefixed-chars ] }
{ [ dup complete-COLOR:? ] [ drop prefixed-colors ] } { [ dup complete-color? ] [ drop prefixed-colors ] }
[ drop prefixed-words ] [ drop prefixed-words ]
} cond dup completions tset } cond dup completions tset
] if* ; ] if* ;