(gl-error) ( function -- )

Vocabulary

opengl

Inputs

function

an object

Outputs

None

Definition

USING: io kernel math.parser namespaces sequences ;

IN: opengl

: (gl-error) ( function -- )
    gl-error-code [
        throw-gl-error?
        [ <gl-error> throw ] [
            [
                [ number>string ] [ error>string ] bi ": " glue
                "OpenGL error: " prepend print flush drop
            ] with-global
        ] if
    ] [ drop ] if* ;