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

io.files.info.windows: Fix file-info-tuple inheritance.

db4
Doug Coleman 2013-03-23 19:14:28 -07:00
parent d0ad18a64e
commit f4410e295a
1 changed files with 2 additions and 2 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

@ -19,7 +19,7 @@ IN: io.files.info.windows
multiple swap - n + multiple swap - n +
] if-zero ; ] if-zero ;
TUPLE: windows-file-info < file-info attributes ; TUPLE: windows-file-info < file-info-tuple attributes ;
: get-compressed-file-size ( path -- n ) : get-compressed-file-size ( path -- n )
{ DWORD } [ GetCompressedFileSize ] with-out-parameters { DWORD } [ GetCompressedFileSize ] with-out-parameters
@ -137,7 +137,7 @@ CONSTANT: path-length $[ MAX_PATH 1 + ]
: calculate-file-system-info ( file-system-info -- file-system-info' ) : calculate-file-system-info ( file-system-info -- file-system-info' )
[ dup [ total-space>> ] [ free-space>> ] bi - >>used-space drop ] keep ; [ dup [ total-space>> ] [ free-space>> ] bi - >>used-space drop ] keep ;
TUPLE: win32-file-system-info < file-system-info max-component flags device-serial ; TUPLE: win32-file-system-info < file-system-info-tuple max-component flags device-serial ;
ERROR: not-absolute-path ; ERROR: not-absolute-path ;