opengl: Rename gl-error to gl-error-tuple.

db4
Doug Coleman 2013-03-23 16:26:26 -07:00
parent 5fab749dcc
commit 4efd998bd6
1 changed files with 2 additions and 2 deletions

View File

@ -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 ;
: <gl-error> ( 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