672910f27b
I started from tabs that are not on the beginning of lines, and in several places I did further cleanings. If you're worried about knowing who wrote some code, for example, if you get to this commit in "git blame", then note that you can use the "-w" flag in many git commands to ignore whitespaces. For example, to see per-line authors, use "git blame -w <file>". Another example: to see the (*much* smaller) non-whitespace changes in this (or any other) commit, use "git log -p -w -1 <sha1>".
18 lines
510 B
Racket
18 lines
510 B
Racket
#lang scheme/base
|
|
|
|
(require launcher compiler/embed)
|
|
(provide post-installer)
|
|
|
|
(define (post-installer path)
|
|
(define variants (available-mzscheme-variants))
|
|
(for ([v (in-list variants)])
|
|
(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))))))
|