From f4410e295a095816c9b25bf8f44265e23637420a Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 23 Mar 2013 19:14:28 -0700 Subject: [PATCH] io.files.info.windows: Fix file-info-tuple inheritance. --- basis/io/files/info/windows/windows.factor | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/basis/io/files/info/windows/windows.factor b/basis/io/files/info/windows/windows.factor index 82810296c0..c0356af54e 100755 --- a/basis/io/files/info/windows/windows.factor +++ b/basis/io/files/info/windows/windows.factor @@ -19,7 +19,7 @@ IN: io.files.info.windows multiple swap - n + ] if-zero ; -TUPLE: windows-file-info < file-info attributes ; +TUPLE: windows-file-info < file-info-tuple attributes ; : get-compressed-file-size ( path -- n ) { 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' ) [ 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 ;