resolve-delegate ( rule -- )

Vocabulary

xmode.catalog

Inputs

rule

an object

Outputs

None

Definition

USING: accessors classes kernel namespaces strings xmode.rules ;

IN: xmode.catalog

: resolve-delegate ( rule -- )
    dup delegate>> dup string? [
        get-rule-set rule-set check-instance swap rule-sets
        [ dup finalize-rule-set ] with-variable >>delegate drop
    ] [ 2drop ] if ;