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

View File

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