?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 [ shader? ] 1guard ] [ drop f ] if ;