suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add version to libGL reference

Browse Source 
svn: r14732
This commit is contained in:
Matthew Flatt 2009-05-06 19:53:32 +00:00
parent 6c68825a49
commit 76a7fa1bed
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
collects/sgl/gl.ss
View File

@ -10,11 +10,11 @@
(define gl-lib (case stype (define gl-lib (case stype
[(windows) (ffi-lib "opengl32")] [(windows) (ffi-lib "opengl32")]
[(macosx) (ffi-lib "/System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGL")] [(macosx) (ffi-lib "/System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGL")]
[else (ffi-lib "libGL")])) [else (ffi-lib "libGL" '("1" ""))]))
(define glu-lib (case stype (define glu-lib (case stype
[(windows) (ffi-lib "glu32")] [(windows) (ffi-lib "glu32")]
[(macosx) (ffi-lib "/System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLU")] [(macosx) (ffi-lib "/System/Library/Frameworks/OpenGL.framework/Versions/A/Libraries/libGLU")]
[else (ffi-lib "libGLU")])) [else (ffi-lib "libGLU" '("1" ""))]))
(define (unavailable name) (define (unavailable name)
(lambda () (lambda x (error name "unavailable on this system")))) (lambda () (lambda x (error name "unavailable on this system"))))