From e09dffe3799008ae94620460c3cca75e5ef786b2 Mon Sep 17 00:00:00 2001 From: Doug Coleman Date: Wed, 19 Oct 2011 03:14:19 -0700 Subject: [PATCH] Create attributes>> accessor in io.files.windows --- basis/io/files/windows/windows.factor | 2 ++ 1 file changed, 2 insertions(+) diff --git a/basis/io/files/windows/windows.factor b/basis/io/files/windows/windows.factor index 0b8c116c0f..bc89970364 100755 --- a/basis/io/files/windows/windows.factor +++ b/basis/io/files/windows/windows.factor @@ -281,6 +281,8 @@ SYMBOLS: +read-only+ +hidden+ +system+ +sparse-file+ +reparse-point+ +compressed+ +offline+ +not-content-indexed+ +encrypted+ ; +SLOT: attributes + : read-only? ( file-info -- ? ) attributes>> +read-only+ swap member? ;