From 6077f2d6c62be2daaee700ae8bb9476784d4efe4 Mon Sep 17 00:00:00 2001 From: John Benediktsson Date: Mon, 30 Jul 2012 11:50:22 -0700 Subject: [PATCH] Revert "vocabs.loader: teach append-vocab-dir about private vocabs." This reverts commit 9b98c098c1f89554f07e326dd85894b9b6bdf04c. --- 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 6d0a17bc19..fec916667e 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 ".private" ?tail drop "." split ] dip + [ vocab-name "." split ] dip [ [ dup last ] dip append suffix ] when* "/" join ;