From 4849636fd7b7ad6ceb6e37f93493d566e1b02286 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 19 Nov 2008 16:45:13 -0600 Subject: [PATCH] remove attribute if it's the same as the type --- basis/io/windows/files/files.factor | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/basis/io/windows/files/files.factor b/basis/io/windows/files/files.factor index 5746eb252d..7f84b9d9e5 100755 --- a/basis/io/windows/files/files.factor +++ b/basis/io/windows/files/files.factor @@ -178,7 +178,8 @@ 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 windows-directory-entry boa ; + tri + dupd remove windows-directory-entry boa ; : WIN32_FIND_DATA>file-info ( WIN32_FIND_DATA -- file-info ) [ \ windows-file-info new ] dip