13 lines
572 B
Scheme
13 lines
572 B
Scheme
(module installer mzscheme
|
|
(require (lib "process.ss")
|
|
(lib "dirs.ss" "setup"))
|
|
(provide post-installer)
|
|
(define (post-installer plt-home)
|
|
(let ([exe "MzCOM.exe"])
|
|
(cond [(not (eq? (system-type) 'windows))
|
|
(printf "Warning: can't install MzCOM on non-Windows machine\n")]
|
|
[(not (file-exists? (build-path (find-console-bin-dir) exe)))
|
|
(printf "Warning: MzCOM binary not installed\n")]
|
|
[else (parameterize ([current-directory (find-console-bin-dir)])
|
|
(system* exe "/RegServer"))]))))
|