(module pre-installer mzscheme
	(require (lib "setup-extension.ss" "make")
		 (lib "compile.ss" "dynext")
		 (lib "link.ss" "dynext")
		 (lib "file.ss"))

(define C-FILE "c-roos.c")


(define (pre-installer plthome package-dir)


  (display (format "Pre installing ~a ~%" C-FILE))
  (display (format "  plthome  = ~a ~%" plthome))
  (display (format "  package-dir = ~a ~%" package-dir))

  (pre-install plthome
	       (build-path package-dir)
	       C-FILE
	       (build-path package-dir)
	       ;; header subdirs
	       (list)
	       ;; unix libs
	       (list)
	       ;; windows libs
	       (list)
	       ;; unix extra libs (assume always there)
	       (list)
	       ;; Windows extra libs (assume always there)
	       (list)
	       ;; Extra depends:
	       (list "c-roos.scm")
	       ;; Last-chance k:
	       (lambda (k) (k))
	       ;; 3m, too:
	       #t))

(provide pre-installer))