(gl-program?) ( object -- ? )

Vocabulary

opengl.shaders

Inputs

object

an object

Outputs

?

an object

Definition

USING: alien.c-types kernel math opengl.gl ;

IN: opengl.shaders

: (gl-program?) ( object -- ? )
    dup integer? [ glIsProgram c-bool> ] [ drop f ] if ;