make something private

2009-09-08 17:10:19 -05:00 · 2009-09-08 17:10:19 -05:00 · 1fc0940b2a
parent d02d95ea34
commit 1fc0940b2a
1 changed files with 4 additions and 0 deletions
--- 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) ;