base-path ( string -- seq )

Vocabulary

furnace.utilities

Inputs

string

an object

Outputs

seq

an object

Definition

USING: accessors classes http.server kernel namespaces sequences
;

IN: furnace.utilities

: base-path ( string -- seq )
    [
        responder-nesting get [
            second class-of superclasses-of [ name>> = ] with
            any?
        ] with find nip
    ] [ first ] [ no-such-responder ] ?if ;