diff --git a/extra/opengl/gl/extensions/extensions.factor b/extra/opengl/gl/extensions/extensions.factor index b0a683dac6..b8ac396c2f 100644 --- a/extra/opengl/gl/extensions/extensions.factor +++ b/extra/opengl/gl/extensions/extensions.factor @@ -1,6 +1,6 @@ USING: alien alien.syntax combinators kernel parser sequences -system words namespaces hashtables init math arrays assocs -sequences.lib continuations ; +system words namespaces hashtables init math arrays assocs +continuations ; ERROR: unknown-gl-platform ; << { @@ -30,7 +30,7 @@ reset-gl-function-number-counter : gl-function-pointer ( names n -- funptr ) gl-function-context 2array dup +gl-function-pointers+ get-global at [ 2nip ] [ - >r [ gl-function-address ] attempt-each + >r [ gl-function-address ] map [ ] find nip dup [ "OpenGL function not available" throw ] unless dup r> +gl-function-pointers+ get-global set-at diff --git a/extra/opengl/opengl-docs.factor b/extra/opengl/opengl-docs.factor index 5b1ee0d565..2788ebdfc2 100644 --- a/extra/opengl/opengl-docs.factor +++ b/extra/opengl/opengl-docs.factor @@ -1,5 +1,5 @@ USING: help.markup help.syntax io kernel math quotations -opengl.gl multiline assocs vocabs.loader sequences ; +opengl.gl assocs vocabs.loader sequences ; IN: opengl HELP: gl-color