vocabs.loader: actually use the root cache.

db4
John Benediktsson 2011-10-24 16:18:29 -07:00
parent 0d059e0f19
commit ea4fe562c3
1 changed files with 2 additions and 2 deletions

View File

@ -56,8 +56,8 @@ ERROR: absolute-path-forbidden path ;
"/" join ;
: find-vocab-root ( vocab -- path/f )
vocab-name dup root-cache get at
[ ] [ ".factor" append-vocab-dir find-root-for ] ?if ;
vocab-name root-cache get
[ ".factor" append-vocab-dir find-root-for ] cache ;
: vocab-append-path ( vocab path -- newpath )
swap find-vocab-root dup [ prepend-path ] [ 2drop f ] if ;