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

vocabs.loader: one vocab-exists? word.

char-rename
John Benediktsson 2016-07-16 16:21:45 -07:00
parent abbefc96b9
commit ccbde89968
2 changed files with 3 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
basis/ui/tools/listener/listener.factor
View File

@ -44,9 +44,6 @@ M: interactor manifest>>
manifest swap assoc-stack manifest swap assoc-stack
] if ; ] if ;
: vocab-exists? ( name -- ? )
'[ _ { [ lookup-vocab ] [ find-vocab-root ] } 1|| ] [ drop f ] recover ;
GENERIC: (word-at-caret) ( token completion-mode -- obj ) GENERIC: (word-at-caret) ( token completion-mode -- obj )
M: vocab-completion (word-at-caret) M: vocab-completion (word-at-caret)

3
core/vocabs/loader/loader.factor
View File

@ -55,6 +55,9 @@ PRIVATE>
] if ] if
] cache ; ] cache ;
: vocab-exists? ( name -- ? )
dup lookup-vocab [ ] [ find-vocab-root ] ?if ;
: vocab-append-path ( vocab path -- newpath ) : vocab-append-path ( vocab path -- newpath )
swap find-vocab-root [ prepend-path ] [ drop f ] if* ; swap find-vocab-root [ prepend-path ] [ drop f ] if* ;