Create attributes>> accessor in io.files.windows

2011-10-19 03:14:19 -07:00 · 2011-10-19 03:14:19 -07:00 · 55bb863704
parent b58688f87d
commit 55bb863704
1 changed files with 2 additions and 0 deletions
--- 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? ;