From 758a191ffe45d9fd2b636c4d307512f23d0298de Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Fri, 25 Apr 2008 16:40:09 +0000
Subject: [PATCH] fix GL-unavailable thunk

svn: r9476
---
 collects/sgl/gl.ss | 5 +++--
 1 file changed, 3 insertions(+), 2 deletions(-)

diff --git a/collects/sgl/gl.ss b/collects/sgl/gl.ss
index 246f4b8a9e..1c315a87e1 100644
--- 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 (->)