From 42922cee81d3ced9f907987b8c87071514068af2 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Mon, 30 Jul 2012 11:36:54 -0700
Subject: [PATCH] vocabs.loader: teach append-vocab-dir about private vocabs.

---
 core/vocabs/loader/loader.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/core/vocabs/loader/loader.factor b/core/vocabs/loader/loader.factor
index fec916667e..6d0a17bc19 100644
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -45,7 +45,7 @@ PRIVATE>
     vocab-name H{ { CHAR: . CHAR: / } } substitute ;
 
 : append-vocab-dir ( vocab str/f -- path )
-    [ vocab-name "." split ] dip
+    [ vocab-name ".private" ?tail drop "." split ] dip
     [ [ dup last ] dip append suffix ] when*
     "/" join ;