diff --git a/basis/opengl/opengl.factor b/basis/opengl/opengl.factor index 9c66002f7e..175d5ba413 100644 --- a/basis/opengl/opengl.factor +++ b/basis/opengl/opengl.factor @@ -32,10 +32,10 @@ SYMBOL: gl-scale-factor { 0x0506 "Invalid framebuffer operation" } } at "Unknown error" or ; -TUPLE: gl-error function code string ; +TUPLE: gl-error-tuple function code string ; : ( function code -- gl-error ) - dup error>string \ gl-error boa ; inline + dup error>string \ gl-error-tuple boa ; inline : gl-error-code ( -- code/f ) glGetError dup 0 = [ drop f ] when ; inline