check-gl-program ( program -- program )

Vocabulary

opengl.shaders

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
    ;