use radix literals

[factor.git] / basis / io / files / info / unix / unix.factor

diff --git a/basis/io/files/info/unix/unix.factor b/basis/io/files/info/unix/unix.factor
index ca07418a53f361f82eca49ca96953d90c62d4e2e..8b1701cfeae1ea5e42c89e1db0c695d7d663ebb1 100644 (file)
--- a/basis/io/files/info/unix/unix.factor
+++ b/basis/io/files/info/unix/unix.factor
@@ -119,24 +119,24 @@ M: file-info file-mode? [ permissions>> ] dip mask? ;
 
 PRIVATE>
 
-CONSTANT: UID           OCT: 0004000
-CONSTANT: GID           OCT: 0002000
-CONSTANT: STICKY        OCT: 0001000
-CONSTANT: USER-ALL      OCT: 0000700
-CONSTANT: USER-READ     OCT: 0000400
-CONSTANT: USER-WRITE    OCT: 0000200
-CONSTANT: USER-EXECUTE  OCT: 0000100
-CONSTANT: GROUP-ALL     OCT: 0000070
-CONSTANT: GROUP-READ    OCT: 0000040
-CONSTANT: GROUP-WRITE   OCT: 0000020
-CONSTANT: GROUP-EXECUTE OCT: 0000010
-CONSTANT: OTHER-ALL     OCT: 0000007
-CONSTANT: OTHER-READ    OCT: 0000004
-CONSTANT: OTHER-WRITE   OCT: 0000002
-CONSTANT: OTHER-EXECUTE OCT: 0000001
-CONSTANT: ALL-READ      OCT: 0000444
-CONSTANT: ALL-WRITE     OCT: 0000222
-CONSTANT: ALL-EXECUTE   OCT: 0000111
+CONSTANT: UID           0o0004000
+CONSTANT: GID           0o0002000
+CONSTANT: STICKY        0o0001000
+CONSTANT: USER-ALL      0o0000700
+CONSTANT: USER-READ     0o0000400
+CONSTANT: USER-WRITE    0o0000200
+CONSTANT: USER-EXECUTE  0o0000100
+CONSTANT: GROUP-ALL     0o0000070
+CONSTANT: GROUP-READ    0o0000040
+CONSTANT: GROUP-WRITE   0o0000020
+CONSTANT: GROUP-EXECUTE 0o0000010
+CONSTANT: OTHER-ALL     0o0000007
+CONSTANT: OTHER-READ    0o0000004
+CONSTANT: OTHER-WRITE   0o0000002
+CONSTANT: OTHER-EXECUTE 0o0000001
+CONSTANT: ALL-READ      0o0000444
+CONSTANT: ALL-WRITE     0o0000222
+CONSTANT: ALL-EXECUTE   0o0000111
 
 : uid? ( obj -- ? ) UID file-mode? ;
 : gid? ( obj -- ? ) GID file-mode? ;