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

fix mzschemecgc name (to not overwrite mzscheme)

Browse Source
This commit is contained in:
Matthew Flatt 2010-04-15 21:40:28 -04:00
parent cea92a1737
commit ccee3d4d9e
1 changed files with 9 additions and 8 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/mzscheme/installer.ss
View File

@ -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))))))