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? ;