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

fix GL-unavailable thunk

Browse Source 
svn: r9476
This commit is contained in:
Matthew Flatt 2008-04-25 16:40:09 +00:00
parent 764ed78129
commit 758a191ffe
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
collects/sgl/gl.ss
View File

@ -14,8 +14,9 @@
[else (ffi-lib "libGLU")])) [else (ffi-lib "libGLU")]))
(define (unavailable name) (define (unavailable name)
(lambda ()
(lambda x (lambda x
(error 'name "unavailable on this system"))) (error name "unavailable on this system"))))
(define-syntax define-foreign-lib (define-syntax define-foreign-lib
(syntax-rules (->) (syntax-rules (->)