(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"))]))))