HCoop
/
clinton
/
guile-figl.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
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)
(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)
(define (resolve-foreign name)
- (
error "unimplemented!"
name))
+ (
(current-gl-resolver)
name))
(define-syntax foreign-trampoline
(lambda (stx)
(define-syntax foreign-trampoline
(lambda (stx)