check-gl-shader ( shader -- shader ) (original) (raw)

check-gl-shader ( shader -- shader )

Vocabulary
opengl.shaders

Inputs

shader A gl-shader object

Outputs

shader A gl-shader object

Word description
Throws an error containing the gl-shader-info-log for the shader object if it failed to compile. Otherwise, the shader object is left on the stack.

Definition

USING: kernel ;

IN: opengl.shaders

: check-gl-shader ( shader -- shader )
dup gl-shader-ok? [ dup gl-shader-info-log throw ] unless ;