steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

make something private

db4
Doug Coleman 2009-09-08 17:10:19 -05:00
parent d02d95ea34
commit 1fc0940b2a
1 changed files with 4 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
basis/io/files/info/windows/windows.factor
View File

@ -129,6 +129,8 @@ ERROR: not-absolute-path ;
[ first Letter? ] [ first Letter? ]
} 1&& [ 2 head "\\" append ] [ not-absolute-path ] if ; } 1&& [ 2 head "\\" append ] [ not-absolute-path ] if ;
<PRIVATE
: (file-system-info) ( path -- file-system-info ) : (file-system-info) ( path -- file-system-info )
dup [ volume-information ] [ file-system-space ] bi dup [ volume-information ] [ file-system-space ] bi
\ win32-file-system-info new \ win32-file-system-info new
@ -143,6 +145,8 @@ ERROR: not-absolute-path ;
swap >>mount-point swap >>mount-point
calculate-file-system-info ; calculate-file-system-info ;
PRIVATE>
M: winnt file-system-info ( path -- file-system-info ) M: winnt file-system-info ( path -- file-system-info )
normalize-path root-directory (file-system-info) ; normalize-path root-directory (file-system-info) ;