find-program-instance ( program -- instance )

Vocabulary

gpu.shaders.private

Inputs

program

an object

Outputs

instance

an object

Definition

USING: accessors assocs kernel namespaces ui.gadgets.worlds ;

IN: gpu.shaders.private

: find-program-instance ( program -- instance )
    world get over instances>> at*
    [ nip ] [ drop link-program ] if ;