From be82de6cfd6eb4d393e7c85f9f6d8867906129ed Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Sat, 29 Aug 2009 14:37:09 -0500 Subject: [PATCH] oops, forgot to update a struct --- basis/io/directories/windows/windows.factor | 9 +++++---- 1 file changed, 5 insertions(+), 4 deletions(-) diff --git a/basis/io/directories/windows/windows.factor b/basis/io/directories/windows/windows.factor index 7554baa944..d1931526bd 100755 --- a/basis/io/directories/windows/windows.factor +++ b/basis/io/directories/windows/windows.factor @@ -48,10 +48,11 @@ M: windows delete-directory ( path -- ) TUPLE: windows-directory-entry < directory-entry attributes ; M: windows >directory-entry ( byte-array -- directory-entry ) - [ WIN32_FIND_DATA-cFileName utf16n alien>string ] - [ WIN32_FIND_DATA-dwFileAttributes win32-file-type ] - [ WIN32_FIND_DATA-dwFileAttributes win32-file-attributes ] - tri + [ cFileName>> utf16n alien>string ] + [ + dwFileAttributes>> + [ win32-file-type ] [ win32-file-attributes ] bi + ] bi dupd remove windows-directory-entry boa ; M: windows (directory-entries) ( path -- seq )