make more words private

basis/io/files/listing/listing.factor

@@ -5,6 +5,8 @@ math.parser sequences system vocabs.loader calendar ;
 
 IN: io.files.listing
 
+<PRIVATE
+
 : ls-time ( timestamp -- string )
     [ hour>> ] [ minute>> ] bi
     [ number>string 2 CHAR: 0 pad-left ] bi@ ":" swap 3append ;
@@ -26,6 +28,8 @@ IN: io.files.listing
 
 HOOK: (directory.) os ( path -- lines )
 
+PRIVATE>
+
 : directory. ( path -- )
     [ (directory.) ] with-directory-files [ print ] each ;
 

basis/io/files/listing/unix/unix.factor

@@ -5,6 +5,8 @@ io.unix.files io.files.listing generalizations strings
 arrays sequences io.files math.parser unix.groups unix.users ;
 IN: io.files.listing.unix
 
+<PRIVATE
+
 : unix-execute>string ( str bools -- str' )
     swap {
         { { t t } [ >lower ] }
@@ -41,3 +43,5 @@ M: unix (directory.) ( path -- lines )
             } cleave 4 narray swap suffix " " join
         ] map
     ] with-group-cache ] with-user-cache ;
+
+PRIVATE>

basis/io/files/listing/windows/windows.factor

@@ -5,6 +5,8 @@ kernel math.parser sequences splitting system io.files.listing
 generalizations ;
 IN: io.files.listing.windows
 
+<PRIVATE
+
 : directory-or-size ( file-info -- str )
     dup directory? [
         drop "<DIR>" 20 CHAR: \s pad-right
@@ -19,3 +21,5 @@ M: windows (directory.) ( entries -- lines )
             [ directory-or-size ]
         } cleave 2 narray swap suffix " " join
     ] map ;
+
+PRIVATE>