use radix literals

[factor.git] / extra / io / files / trash / unix / unix.factor

diff --git a/extra/io/files/trash/unix/unix.factor b/extra/io/files/trash/unix/unix.factor
index e8b8489cdb7fd75de951225543505126900e50ea..f451891311eae6d6eb294974fe0116753ea18fad 100644 (file)
--- a/extra/io/files/trash/unix/unix.factor
+++ b/extra/io/files/trash/unix/unix.factor
@@ -21,7 +21,7 @@ IN: io.files.trash.unix
     [ dup top-directory? not ] [ ".." append-path ] while ;
 
 : make-user-directory ( path -- )
-    [ make-directories ] [ OCT: 700 set-file-permissions ] bi ;
+    [ make-directories ] [ 0o700 set-file-permissions ] bi ;
 
 : check-trash-path ( path -- )
     {