From ccee3d4d9ec6436f7814e721108288f1ff8cc8cb Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 15 Apr 2010 21:40:28 -0400
Subject: [PATCH] fix mzschemecgc name (to not overwrite mzscheme)

---
 collects/mzscheme/installer.ss | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/collects/mzscheme/installer.ss b/collects/mzscheme/installer.ss
index 08da2cf53e..d3c8c3453d 100644
--- a/collects/mzscheme/installer.ss
+++ b/collects/mzscheme/installer.ss
@@ -6,11 +6,12 @@
 (define (post-installer path)
   (define variants (available-mzscheme-variants))
   (for ([v (in-list variants)])
-    (create-embedding-executable	 
-     (mzscheme-program-launcher-path "MzScheme")
-     #:variant v
-     #:cmdline '("-I" "scheme/init")
-     #:launcher? #t
-     #:aux '((framework-root . #f)
-             (dll-dir . #f)
-             (relative? . #t)))))
+    (parameterize ([current-launcher-variant v])
+      (create-embedding-executable	 
+       (mzscheme-program-launcher-path "MzScheme")
+       #:variant v
+       #:cmdline '("-I" "scheme/init")
+       #:launcher? #t
+       #:aux '((framework-root . #f)
+               (dll-dir . #f)
+               (relative? . #t))))))