From b7afe8689e5e651a94e31b676678fd22bfa06136 Mon Sep 17 00:00:00 2001
From: Doug Coleman <doug.coleman@gmail.com>
Date: Tue, 8 Sep 2009 17:10:19 -0500
Subject: [PATCH] make something private

---
 basis/io/files/info/windows/windows.factor | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/basis/io/files/info/windows/windows.factor b/basis/io/files/info/windows/windows.factor
index 27fbae0324..385a1eb196 100755
--- a/basis/io/files/info/windows/windows.factor
+++ b/basis/io/files/info/windows/windows.factor
@@ -129,6 +129,8 @@ ERROR: not-absolute-path ;
         [ first Letter? ]
     } 1&& [ 2 head "\\" append ] [ not-absolute-path ] if ;
 
+<PRIVATE
+
 : (file-system-info) ( path -- file-system-info )
     dup [ volume-information ] [ file-system-space ] bi
     \ win32-file-system-info new
@@ -143,6 +145,8 @@ ERROR: not-absolute-path ;
         swap >>mount-point
     calculate-file-system-info ;
 
+PRIVATE>
+
 M: winnt file-system-info ( path -- file-system-info )
     normalize-path root-directory (file-system-info) ;