steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Fix has-gl-extensions? when requested extensions are not contiguous in the gl-extensions string

db4
Joe Groff 2008-02-02 14:24:03 -08:00
parent da5abebcc8
commit ae51681750
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
extra/opengl/opengl.factor
View File

@ -401,7 +401,7 @@ PREDICATE: integer gl-program (gl-program?) ;
: gl-extensions ( -- seq ) : gl-extensions ( -- seq )
GL_EXTENSIONS glGetString " " split ; GL_EXTENSIONS glGetString " " split ;
: has-gl-extensions? ( extensions -- ? ) : has-gl-extensions? ( extensions -- ? )
gl-extensions subseq? ; gl-extensions swap [ over member? ] all? nip ;
: (make-gl-extensions-error) ( required-extensions -- ) : (make-gl-extensions-error) ( required-extensions -- )
gl-extensions swap seq-diff gl-extensions swap seq-diff
"Required OpenGL extensions not supported:\n" % "Required OpenGL extensions not supported:\n" %