From 80d0bbe9f9bf7f9e22bf9fdc9c077439ab3dc36d Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Wed, 14 Nov 2007 04:20:30 +0000
Subject: [PATCH] fix make-sgl-info

svn: r7716
---
 collects/sgl/make-gl-info.ss | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/collects/sgl/make-gl-info.ss b/collects/sgl/make-gl-info.ss
index 82e2d561f7..352101892a 100644
--- a/collects/sgl/make-gl-info.ss
+++ b/collects/sgl/make-gl-info.ss
@@ -115,7 +115,7 @@ end-string
       (delete/continue file.o)))
 
   (define (build-helper compile-directory home variant)
-    (let* ((file (build-path compile-directory "make-gl-info-helper.ss"))
+    (let* ((file "make-gl-info-helper.ss")
            (c (build-path compile-directory (append-c-suffix file)))
            (so (build-path compile-directory
                            "native"