Paste: studying the ls command

Author: metaperl
Mode: factor
Date: Sat, 20 Feb 2010 14:48:05
Plain Text | 
USING: command-line namespaces io io.files
io.pathnames tools.files sequences kernel ;

command-line get [
    current-directory get directory.
] [
    dup length 1 = [ first directory. ] [
        [ [ nl write ":" print ] [ directory. ] bi ] each
    ] if
] if-empty

New Annotation

Summary:
Author:
Mode:
Body: