steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

ui.tools.listener.completion: intersects? is overkill here.

db4
John Benediktsson 2012-07-13 18:58:05 -07:00
parent bdefd57819
commit 57b681dd71
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
basis/ui/tools/listener/completion/completion.factor
View File

@ -83,7 +83,7 @@ M: vocab-completion row-color
{ ";" } split1-last [ ] [ ] ?if ; { ";" } split1-last [ ] [ ] ?if ;
: complete-vocab-list? ( tokens -- ? ) : complete-vocab-list? ( tokens -- ? )
chop-; 1 short head* { "USING:" } intersects? ; chop-; 1 short head* "USING:" swap member? ;
: complete-CHAR:? ( tokens -- ? ) : complete-CHAR:? ( tokens -- ? )
2 short tail* "CHAR:" swap member? ; 2 short tail* "CHAR:" swap member? ;