?shader ( object -- shader/f )

Vocabulary

gpu.shaders.private

Inputs

object

an object

Outputs

shader/f

an object

Definition

USING: accessors gpu.shaders kernel sequences words ;

IN: gpu.shaders.private

: ?shader ( object -- shader/f )
    dup word?
    [ def>> first dup shader? [ drop f ] unless ] [ drop f ] if
    ;