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