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

fix re-write of in.sxref when a collection disappears

Browse Source 
svn: r15248
This commit is contained in:
Matthew Flatt 2009-06-23 22:51:13 +00:00
parent 53a011cf65
commit 38ba01ed96
1 changed files with 11 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

17
collects/setup/scribble.ss
View File

@ -149,6 +149,8 @@
(map (lambda (d) (map (lambda (d)
(if (info? d) d (or (hash-ref src->info d #f) d))) (if (info? d) d (or (hash-ref src->info d #f) d)))
(info-deps info))) (info-deps info)))
(unless (andmap info? (info-deps info))
(set-info-need-in-write?! info #t))
;; Propagate existing dependencies as expected dependencies: ;; Propagate existing dependencies as expected dependencies:
(for ([d (info-deps info)]) (for ([d (info-deps info)])
(let ([i (if (info? d) d (hash-ref src->info d #f))]) (let ([i (if (info? d) d (hash-ref src->info d #f))])
@ -664,12 +666,7 @@
(lambda () (lambda ()
(list (list (info-vers info) (doc-flags doc)) (list (list (info-vers info) (doc-flags doc))
(serialize (info-undef info)) (serialize (info-undef info))
(filter (convert-deps (info-deps info))
values
(map (lambda (i)
(and (info? i)
(path->rel (doc-src-file (info-doc i)))))
(info-deps info)))
(serialize (info-searches info))))))))) (serialize (info-searches info)))))))))
(define (write-out info setup-printf) (define (write-out info setup-printf)
@ -693,3 +690,11 @@
(if (path? r) (if (path? r)
(path->bytes r) (path->bytes r)
r))) r)))
(define (convert-deps deps)
(filter
values
(map (lambda (i)
(and (info? i)
(path->rel (doc-src-file (info-doc i)))))
deps)))