current-gl-resolver parameter

[clinton/guile-figl.git] / figl / low-level / support.scm

diff --git a/figl/low-level/support.scm b/figl/low-level/support.scm
index 03b828e..7b46df4 100644 (file)
--- a/figl/low-level/support.scm
+++ b/figl/low-level/support.scm
@@ -23,10 +23,17 @@
 
 (define-module (figl low-level support)
   #:use-module (system foreign)
-  #:export (define-gl-procedure))
+  #:export (current-gl-resolver
+            define-gl-procedure))
+
+(define (default-foreign-resolver name)
+  (dynamic-pointer name (dynamic-link)))
+
+(define current-gl-resolver
+  (make-parameter default-foreign-resolver))
 
 (define (resolve-foreign name)
-  (error "unimplemented!" name))
+  ((current-gl-resolver) name))
 
 (define-syntax foreign-trampoline
   (lambda (stx)