18 lines
493 B
Racket
18 lines
493 B
Racket
#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)))))))
|