Create attributes>> accessor in io.files.windows
parent
b58688f87d
commit
55bb863704
|
@ -281,6 +281,8 @@ SYMBOLS: +read-only+ +hidden+ +system+
|
||||||
+sparse-file+ +reparse-point+ +compressed+ +offline+
|
+sparse-file+ +reparse-point+ +compressed+ +offline+
|
||||||
+not-content-indexed+ +encrypted+ ;
|
+not-content-indexed+ +encrypted+ ;
|
||||||
|
|
||||||
|
SLOT: attributes
|
||||||
|
|
||||||
: read-only? ( file-info -- ? )
|
: read-only? ( file-info -- ? )
|
||||||
attributes>> +read-only+ swap member? ;
|
attributes>> +read-only+ swap member? ;
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue