fix GL-unavailable thunk

svn: r9476
2008-04-25 16:40:09 +00:00 · 2008-04-25 16:40:09 +00:00 · 758a191ffe
commit 758a191ffe
parent 764ed78129
1 changed files with 3 additions and 2 deletions
--- a/collects/sgl/gl.ss
+++ b/collects/sgl/gl.ss
@ -14,8 +14,9 @@
 		   [else (ffi-lib "libGLU")]))
  
  (define (unavailable name)
-    (lambda x
-      (error 'name "unavailable on this system")))
+    (lambda ()
+      (lambda x
+        (error name "unavailable on this system"))))
  
  (define-syntax define-foreign-lib
    (syntax-rules (->)