(bind-func gl_set_proc_address
(lambda (index proc-fptr)
(if (or (< index 0)
(> index (- EXTEMPORE_GL_FUNCTION_POINTER_COUNT 1)))
(println "Error in gl_set_proc_address: index must be between 0 and EXTEMPORE_GL_FUNCTION_POINTER_COUNT")
(begin
(aset! EXTEMPORE_GL_FUNCTION_POINTERS index proc-fptr)
void))))