fix bug in deserializer related to order of shared values
svn: r7978 original commit: a58893f4ba26937a260d006d08eb979bfd723d1c
This commit is contained in:
parent
89a582c874
commit
06b9c3e4b5
|
@ -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))))
|
||||
|
||||
;; ----------------------------------------
|
||||
|
|
Loading…
Reference in New Issue
Block a user