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 (post-installer path)
(define variants (available-mzscheme-variants)) (define variants (available-mzscheme-variants))
(for ([v (in-list variants)]) (for ([v (in-list variants)])
(create-embedding-executable (parameterize ([current-launcher-variant v])
(mzscheme-program-launcher-path "MzScheme") (create-embedding-executable
#:variant v (mzscheme-program-launcher-path "MzScheme")
#:cmdline '("-I" "scheme/init") #:variant v
#:launcher? #t #:cmdline '("-I" "scheme/init")
#:aux '((framework-root . #f) #:launcher? #t
(dll-dir . #f) #:aux '((framework-root . #f)
(relative? . #t))))) (dll-dir . #f)
(relative? . #t))))))