define-icon ( class name -- )

Vocabulary

definitions.icons

Inputs

class	an object
name	an object

Outputs

None

Definition

USING: assocs generic kernel namespaces words ;

IN: definitions.icons

: define-icon ( class name -- )
    [ swap icons get set-at ] [
        [ \ definition-icon create-method ] [
            [ [ drop ] ] dip [ definition-icon-path ] curry
            compose
        ] bi* define
    ] 2bi ;