update upstream sources
[clinton/guile-figl.git] / figl / glx.scm
index 81504dc..bc45cad 100644 (file)
   #: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)