directory usage
parent
ef51d1bbf0
commit
12a721869c
|
@ -59,5 +59,5 @@ TUPLE: ftp-response n strings parsed ;
|
|||
3array " " join ;
|
||||
|
||||
: directory-list ( -- seq )
|
||||
"" directory keys
|
||||
"" directory-files
|
||||
[ [ link-info ] keep file-info>string ] map ;
|
||||
|
|
Loading…
Reference in New Issue