34 lines
949 B
Racket
34 lines
949 B
Racket
#lang scheme/base
|
|
(require "checker.ss"
|
|
"specs.ss"
|
|
"dist-specs.ss")
|
|
|
|
(parameterize ([*specs* #f]
|
|
[current-namespace (namespace-anchor->namespace checker-namespace-anchor)])
|
|
(define (/-ify x)
|
|
(regexp-replace #rx"/?$" (if (path? x) (path->string x) x) "/"))
|
|
(define racket/
|
|
(/-ify (simplify-path (build-path (collection-path "scheme") 'up 'up))))
|
|
(define racket-base/
|
|
(/-ify (simplify-path (build-path racket/ 'up) #f)))
|
|
(define racket/-name
|
|
(let-values ([(base name dir?) (split-path racket/)])
|
|
(path-element->string name)))
|
|
|
|
(register-macros!)
|
|
|
|
(register-specs! *specs*)
|
|
|
|
(register-spec! 'verify! verify!)
|
|
(register-spec! 'distribute! void)
|
|
|
|
(set-racket-tree! racket-base/ racket/-name null)
|
|
|
|
(set-bin-files-delayed-lists!
|
|
;; FIXME: hard-wired list of binary-specific files
|
|
'(("racket/collects/sgl/compiled/gl-info_ss.zo")))
|
|
|
|
(expand-spec 'distributions)
|
|
|
|
(void))
|