installer.ss
(module installer mzscheme
  (require (lib "setup-extension.ss" "make"))
  (provide pre-installer)
  (define (pre-installer PLTHOME directory-path)
    (pre-install PLTHOME
                 directory-path
                 "ml.c"
                 PLTHOME
                 '()
                 (if (eq? (system-type 'os)
                          'unix)
                     ;otherwise 'macosx
                     '("ML32i3" "rt")
                     '("MLi3"))
                 '("ML32I3M")
                 '()
                 '()
                 '()
                 (lambda (t) (t))
                 #t)
    (pre-install PLTHOME
                 directory-path
                 "link.c"
                 PLTHOME
                 '()
                 (if (eq? (system-type 'os)
                          'unix)
                     ;otherwise 'macosx
                     '("ML32i3" "rt")
                     '("MLi3"))
                 '("ML32I3M")
                 '()
                 '()
                 '()
                 (lambda (t) (t))
                 #t)))