X-Git-Url: https://gitweb.factorcode.org/gitweb.cgi?p=factor.git;a=blobdiff_plain;f=basis%2Fio%2Fdirectories%2Funix%2Funix.factor;h=eabf1bf314445062ef165b2264c17b0f5a928c97;hp=f8b65bb227e57691784882591f569fbaf6678423;hb=943596575ad294c074dfa381b70af74dba5992b1;hpb=e738c7206c32bd9b76f3cee31e950835e1b1ee24

diff --git a/basis/io/directories/unix/unix.factor b/basis/io/directories/unix/unix.factor
index f8b65bb227..eabf1bf314 100644
--- a/basis/io/directories/unix/unix.factor
+++ b/basis/io/directories/unix/unix.factor
@@ -8,7 +8,7 @@ math.bitwise sequences system unix unix.stat vocabs.loader
 classes.struct unix.ffi literals libc vocabs ;
 IN: io.directories.unix
 
-CONSTANT: file-mode OCT: 0666
+CONSTANT: file-mode 0o0666
 
 CONSTANT: touch-mode flags{ O_WRONLY O_APPEND O_CREAT O_EXCL }
 
@@ -24,7 +24,7 @@ M: unix move-file ( from to -- )
 M: unix delete-file ( path -- ) normalize-path unlink-file ;
 
 M: unix make-directory ( path -- )
-    normalize-path OCT: 777 [ mkdir ] unix-system-call drop ;
+    normalize-path 0o777 [ mkdir ] unix-system-call drop ;
 
 M: unix delete-directory ( path -- )
     normalize-path [ rmdir ] unix-system-call drop ;