get-rule-set ( name -- rule-sets rules )

Vocabulary

xmode.catalog

Inputs

name

an object

Outputs

rule-sets	an object
rules	an object

Definition

USING: assocs kernel namespaces splitting ;

IN: xmode.catalog

: get-rule-set ( name -- rule-sets rules )
    dup "::" split1 [ swap (load-mode) ] [ rule-sets get ] if*
    [ at* [ nip ] [ drop no-such-rule-set ] if ] 1check ;