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

scribble setup: serialize searches for in.sxref, so that paths in the table are ok

Browse Source 
svn: r8613
This commit is contained in:
Matthew Flatt 2008-02-10 14:05:50 +00:00
parent b4c362062c
commit 5929f046d5
1 changed files with 6 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
collects/setup/scribble.ss
View File

@ -6,6 +6,7 @@
scheme/class
scheme/file
scheme/fasl
scheme/serialize
setup/main-collects
scribble/base-render
scribble/struct
@ -365,7 +366,10 @@
(list-ref v-out 1) ; sci
(list-ref v-out 2) ; provides
(list-ref v-in 1) ; undef
(list-ref v-in 3) ; searches
(let ([v (list-ref v-in 3)]) ; searches
(if (hash-table? v) ; temporary compatibility; used to be not serialized
v
(deserialize v)))
(map rel->path (list-ref v-in 2)) ; deps, in case we don't need to build...
can-run?
my-time info-out-time
@ -520,7 +524,7 @@
(map (lambda (i)
(path->rel (doc-src-file (info-doc i))))
(info-deps info))
(info-searches info))))))))
(serialize (info-searches info)))))))))
(define (write-out info)
(make-directory* (doc-dest-dir (info-doc info)))