22 lines
620 B
Scheme
Executable File
22 lines
620 B
Scheme
Executable File
#!/bin/sh
|
|
#|
|
|
exec mzscheme -mvt "$0" "$@"
|
|
|#
|
|
|
|
(module make mzscheme
|
|
(require (lib "launcher.ss" "launcher"))
|
|
|
|
(define tiny-program
|
|
'(begin [use-compiled-file-paths '()]
|
|
(current-directory (build-path (collection-path "mzlib") 'up 'up))
|
|
(load "install")
|
|
(main '("install" "-i"))))
|
|
(make-mred-launcher
|
|
`("-mvq" "-e" ,(format "~s" tiny-program))
|
|
(mred-program-launcher-path "Finish Install")
|
|
(cons
|
|
'(forget-exe? . #t)
|
|
(build-aux-from-path (build-path
|
|
(collection-path "finish-install")
|
|
"finish-install")))))
|