suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

try to fix bundle script for new "cache.rktd" format

Browse Source
This commit is contained in:
Matthew Flatt 2011-08-31 09:48:26 -06:00
parent d75aaa3c0e
commit d8c04a7d57
1 changed files with 8 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
collects/meta/build/bundle
View File

@ -5,6 +5,7 @@
(require racket/cmdline racket/runtime-path racket/match racket/promise
racket/list ; for use in specs too
racket/string
racket/file (only-in racket/system system)
(except-in racket/mpair mappend)
meta/checker (prefix-in dist: meta/dist-specs) meta/specs)
@ -239,7 +240,13 @@
(let* ([collects (or (tree-filter "/racket/collects/" (car trees))
(error 'make-info-domain "got no collects in tree"))]
[info (filter (lambda (x)
(let ([x (path->string (bytes->path (car x)))])
(define p (car x))
(unless (and (list? p)
((length p) . >= . 2)
(eq? 'info (car p))
(andmap bytes? (cdr p)))
(error 'bundle "unexpected path form in cache.rktd: ~e" p))
(let ([x (string-join (map bytes->string/utf-8 (cdr p)) "/")])
(pair? (tree-filter (concat "/racket/collects/" x)
collects))))
*info-domain-cache*)])