bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit c0575d104b67cd07b81eaf3a808e185e84885f61
parent e578b6c328022c69234a25ad8901a40bdcf6ca3e
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Fri,  4 Jul 2008 01:04:18 +0000

avoid genarating toc-content if not needed

svn: r10592

original commit: 97006715341ab34af7d3986250861a7824c5364e

Diffstat:
M
collects/scribble/html-render.ss
 | 
8
+++++---

1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -371,7 +371,7 @@
                                  "tocviewselflink" "tocviewlink")])
                      ,@(render-content (or (part-title-content p) '("???"))
                                        d ri))))))
-      (define toc-content
+      (define (toc-content)
         (parameterize ([extra-breaking? #t])
           (map do-part
                (let loop ([l (map (lambda (v) (cons v #t)) (part-parts top))])
@@ -385,7 +385,8 @@
       `((div ([class "tocset"])
           ,@(if (part-style? d 'no-toc)
               null
-              (let* ([content (render-content
+              (let* ([toc-content (toc-content)]
+                     [content (render-content
                                (or (part-title-content top) '("???"))
                                d ri)]
                      [content (if (null? toc-content)
@@ -532,7 +533,8 @@
                  ,title
                  ,(scribble-css-contents style-file  css-path)
                  ,(scribble-js-contents  script-file script-path))
-               (body () ,@(render-toc-view d ri)
+               (body ()
+                 ,@(render-toc-view d ri)
                  (div ([class "maincolumn"])
                    (div ([class "main"])
                      ,@(render-version d ri)