21 lines
677 B
Scheme
21 lines
677 B
Scheme
;; This installer module just adds a bin/mred script
|
|
;; under OS X
|
|
(module script-installer mzscheme
|
|
(provide post-installer)
|
|
(require (lib "launcher.ss" "launcher"))
|
|
|
|
(define post-installer
|
|
(lambda (path)
|
|
(when (eq? 'macosx (system-type))
|
|
(let ([install
|
|
(lambda (variant)
|
|
(parameterize ([current-launcher-variant variant])
|
|
(make-mred-launcher null
|
|
(mred-program-launcher-path "MrEd")
|
|
'((exe-name . "MrEd")
|
|
(relative? . #t)))))])
|
|
(for-each (lambda (v)
|
|
(when (memq v '(script-3m script-cgc))
|
|
(install v)))
|
|
(available-mred-variants)))))))
|