suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

fix bug in deserializer related to order of shared values

Browse Source 
svn: r7978

original commit: a58893f4ba26937a260d006d08eb979bfd723d1c
This commit is contained in:
Matthew Flatt 2007-12-12 21:50:31 +00:00
parent 89a582c874
commit 06b9c3e4b5
1 changed files with 6 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/setup/scribble-index.ss
View File

@ -65,13 +65,12 @@
infos
dirs)))]
[ci (send renderer collect null null)])
(map (lambda (doc)
(parameterize ([current-namespace (namespace-anchor->empty-namespace here)])
(with-handlers ([exn:fail? (lambda (exn) exn)])
(let ([r (with-input-from-file (build-path (doc-dest doc) "out.sxref")
read)])
(send renderer deserialize-info (cadr r) ci)))))
docs)
(for-each (lambda (doc)
(parameterize ([current-namespace (namespace-anchor->empty-namespace here)])
(let ([r (with-input-from-file (build-path (doc-dest doc) "out.sxref")
read)])
(send renderer deserialize-info (cadr r) ci))))
docs)
(make-xrefs renderer (send renderer resolve null null ci))))
;; ----------------------------------------