From ecd0bb350ce564ffedf1ff4ea6ec2f264f802672 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Sun, 26 Jun 2016 17:12:39 -0700
Subject: [PATCH] vocabs.loader: add a word to clear the vocab-cache.

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

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index 16d8614115..0523a574b4 100644
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -37,6 +37,9 @@ SYMBOL: add-vocab-root-hook
 SYMBOL: root-cache
 root-cache [ H{ } clone ] initialize
 
+: clear-root-cache ( -- )
+    root-cache get clear-assoc ;
+
 ERROR: not-found-in-roots path ;
 
 PRIVATE<