Find where function is defined

where.red

Red[
    Title: "Where"
    Purpose: "Find where function is defined"
    Author: "Boleslav Březovský"
]

where: function [
    "Return file where function is defined or NONE, if the definition can't be found"
    'name
    /in
        path "Start search in this path (default is current directory)"
][
    name: form name
    root: any [path %./]
    find-where: function [
        path 
        name
    ][
        files: read path
        foreach file files [
            file: rejoin [path file]
            case [
                %.red = suffix? file [
                    content: read file
                    if find content rejoin [name ": func"][return file]
                ]
                dir? file [
                    if result: find-where file name [return result]  
                ]
            ]
        ]
        none
    ]
    find-where root name
]