#:use-module (figl runtime)
#:use-module (figl glx low-level))
-(define libGL
- (delay (dynamic-link "libGL")))
-
-(define glXGetProcAddress
- (delay (pointer->procedure
- '*
- (dynamic-pointer "glXGetProcAddress" (force libGL))
- '(*))))
-
-(define (glx-resolver name)
- ((force glXGetProcAddress) (string->pointer name)))
-
-(current-resolver glx-resolver)