Return a list of a folder's content (recursive)

deep-list.reb

Rebol [
    Title: "Return a listing of a folder's content"
    Date: 4-Feb-2019
    Author: "Christopher Ross-Gill"
    Rights: http://opensource.org/licenses/Apache-2.0
]

deep-list: func [
    source [file!]
    /hidden /folders
][
    try collect [
        for-each file read source [
            case [
                all [
                    not hidden
                    parse file ["."]
                ][
                    ; ignore
                ]
                dir? file [
                    if folders [
                        keep/line file
                    ]
                    for-each kid deep-list source/:file [
                        keep/line file/:kid
                    ]
                ]
                file [keep/line file]
            ]
        ]
    ]
]