12 lines
516 B
Scheme
12 lines
516 B
Scheme
(module installer mzscheme
|
|
(require (lib "process.ss"))
|
|
(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 plt-home exe)))
|
|
(printf "Warning: MzCOM binary not installed\n")]
|
|
[else (parameterize ([current-directory plt-home])
|
|
(system* exe "/RegServer"))]))))
|