From 06b9c3e4b57f2181e0d74829a4192991e9d5390a Mon Sep 17 00:00:00 2001 From: Matthew Flatt Date: Wed, 12 Dec 2007 21:50:31 +0000 Subject: [PATCH] fix bug in deserializer related to order of shared values svn: r7978 original commit: a58893f4ba26937a260d006d08eb979bfd723d1c --- collects/setup/scribble-index.ss | 13 ++++++------- 1 file changed, 6 insertions(+), 7 deletions(-) diff --git a/collects/setup/scribble-index.ss b/collects/setup/scribble-index.ss index cc144a67..d3c81a63 100644 --- a/collects/setup/scribble-index.ss +++ b/collects/setup/scribble-index.ss @@ -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)))) ;; ----------------------------------------