check-gl-program ( program -- program ) (original) (raw)

Inputs

program	A gl-program object

Outputs

program	A gl-program object

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

Definition

USING: kernel ;

IN: opengl.shaders

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