Fixing problem introduce in 686ec83. Definitely fixes check-dists, may break bundle, but I don't think so

This commit is contained in:
Jay McCarthy 2010-11-25 11:27:22 -05:00
parent 267d2293c0
commit 81cb890323
3 changed files with 7 additions and 4 deletions

View File

@ -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))))

View File

@ -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

View File

@ -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*