Fixing problem introduce in 686ec83
. Definitely fixes check-dists, may break bundle, but I don't think so
This commit is contained in:
parent
267d2293c0
commit
81cb890323
|
@ -227,7 +227,7 @@
|
|||
(error 'binaries "no binaries found for ~s" platform)))
|
||||
*platforms* *platform-tree-lists*)
|
||||
;; Get the racket tree, remove junk and binary stuff
|
||||
(set-racket-tree! racket-base/ racket/-name *platform-tree-lists*)
|
||||
(set-racket-tree! racket/ racket-base/ racket/-name *platform-tree-lists*)
|
||||
(set-bin-files-delayed-lists!
|
||||
(delay (map (lambda (trees)
|
||||
(sort* (mappend tree-flatten (add-trees trees))))
|
||||
|
|
|
@ -22,7 +22,7 @@
|
|||
(register-spec! 'verify! verify!)
|
||||
(register-spec! 'distribute! void)
|
||||
|
||||
(set-racket-tree! racket-base/ racket/-name null)
|
||||
(set-racket-tree! racket/ racket-base/ racket/-name null)
|
||||
|
||||
(set-bin-files-delayed-lists!
|
||||
;; FIXME: hard-wired list of binary-specific files
|
||||
|
|
|
@ -3,7 +3,8 @@
|
|||
|
||||
#lang scheme/base
|
||||
|
||||
(require scheme/cmdline scheme/runtime-path scheme/match scheme/promise
|
||||
(require scheme/cmdline scheme/runtime-path scheme/match scheme/promise
|
||||
scheme/list ; for use in specs too
|
||||
(for-syntax scheme/base) ; for runtime-path
|
||||
(except-in scheme/mpair mappend)
|
||||
(only-in (lib "process.ss") system)
|
||||
|
@ -560,8 +561,10 @@
|
|||
(provide checker-namespace-anchor)
|
||||
(define-namespace-anchor checker-namespace-anchor)
|
||||
|
||||
(define racket/ #f)
|
||||
(provide set-racket-tree!)
|
||||
(define (set-racket-tree! racket-base/ racket/-name tree-lists)
|
||||
(define (set-racket-tree! racket/* racket-base/ racket/-name tree-lists)
|
||||
(set! racket/ racket/*)
|
||||
(set! *platform-tree-lists* tree-lists)
|
||||
(dprintf "Scanning main tree...")
|
||||
(set! *racket-tree*
|
||||
|
|
Loading…
Reference in New Issue
Block a user