throw-gl-error? ( -- ? )

Vocabulary

opengl

Inputs

None

Outputs

?

an object

Definition

USING: kernel opengl.gl system ;

IN: opengl

: throw-gl-error? ( -- ? )
    os macos? [
        GL_FRAMEBUFFER glCheckFramebufferStatus
        GL_FRAMEBUFFER_UNDEFINED = not
    ] [ t ] if ;