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

vocabs.loader: early exit for private vocab.

db4
John Benediktsson 2012-08-13 11:11:59 -07:00
parent d6c60258cf
commit 29f3043061
1 changed files with 5 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -50,8 +50,11 @@ PRIVATE>
"/" join ; "/" join ;
: find-vocab-root ( vocab -- path/f ) : find-vocab-root ( vocab -- path/f )
vocab-name root-cache get vocab-name root-cache get [
[ ".factor" append-vocab-dir find-root-for ] cache ; dup ".private" tail? [ drop f ] [
".factor" append-vocab-dir find-root-for
] if
] cache ;
: vocab-append-path ( vocab path -- newpath ) : vocab-append-path ( vocab path -- newpath )
swap find-vocab-root dup [ prepend-path ] [ 2drop f ] if ; swap find-vocab-root dup [ prepend-path ] [ 2drop f ] if ;