#lang mzscheme
(require make
         setup/dirs
         "make-gl-info.rkt")

(provide pre-installer)

(define dir (build-path "compiled"))

(define (pre-installer home)
  (parameterize ([current-directory (collection-path "sgl")]
                 [make-print-reasons #f]
                 [make-print-checking #f])
    (make/proc
     `((,(build-path dir "gl-info_rkt.zo")
        ("make-gl-info.rkt" ,(build-path (find-include-dir) "schvers.h"))
        ,(lambda () (make-gl-info dir)))))))
