suzanne.soy/scribble-enhanced
1
0
Fork 0
Code Issues 1 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 infos
dirs)))] dirs)))]
[ci (send renderer collect null null)]) [ci (send renderer collect null null)])
(map (lambda (doc) (for-each (lambda (doc)
(parameterize ([current-namespace (namespace-anchor->empty-namespace here)]) (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")
(let ([r (with-input-from-file (build-path (doc-dest doc) "out.sxref") read)])
read)]) (send renderer deserialize-info (cadr r) ci))))
(send renderer deserialize-info (cadr r) ci))))) docs)
docs)
(make-xrefs renderer (send renderer resolve null null ci)))) (make-xrefs renderer (send renderer resolve null null ci))))
;; ---------------------------------------- ;; ----------------------------------------