old-instances ( name -- instances )

Vocabulary

gpu.shaders.private

Inputs

name

an object

Outputs

instances

an object

Definition

USING: accessors combinators combinators.short-circuit
gpu.shaders kernel words.constant ;

IN: gpu.shaders.private

: old-instances ( name -- instances )
    dup constant? [
        ( -- s/p ) execute-effect dup
        { [ shader? ] [ program? ] } 1||
        [ instances>> ] [ drop H{ } clone ] if
    ] [ drop H{ } clone ] if ;