From 5929f046d5a4359fc8dfcf35acade735f40b6147 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Sun, 10 Feb 2008 14:05:50 +0000
Subject: [PATCH] scribble setup: serialize searches for in.sxref, so that
 paths in the table are ok

svn: r8613
---
 collects/setup/scribble.ss | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/collects/setup/scribble.ss b/collects/setup/scribble.ss
index 61c90ccad0..71893d46b2 100644
--- a/collects/setup/scribble.ss
+++ b/collects/setup/scribble.ss
@@ -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)))