From ea4fe562c386cc8e958b3c8829a8dcd154b11e05 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 24 Oct 2011 16:18:29 -0700
Subject: [PATCH] vocabs.loader: actually use the root cache.

---
 core/vocabs/loader/loader.factor | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 8f0974132e..20c71e06dd 100644
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -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 ;