From 27cfeec43a5e4e23a1c329e8459b474c0f9cd1a3 Mon Sep 17 00:00:00 2001
From: Joe Groff <arcata@gmail.com>
Date: Tue, 16 Feb 2010 19:29:42 -0800
Subject: [PATCH] vocabs.loader: make vocab-dir+ use path-separator too

---
 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 0f2e3f7178..390cfceb95 100644
--- a/core/vocabs/loader/loader.factor
+++ b/core/vocabs/loader/loader.factor
@@ -42,7 +42,7 @@ PRIVATE>
 : vocab-dir+ ( vocab str/f -- path )
     [ vocab-name "." split ] dip
     [ [ dup last ] dip append suffix ] when*
-    "/" join ;
+    path-separator join ;
 
 : find-vocab-root ( vocab -- path/f )
     vocab-name dup root-cache get at