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

commit c4bb36be66340d7a5c8e3f289452e8dc76d8e1b0
parent fd3855f965f489cebd92b90da554945c6592e0c3
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Tue,  8 Jul 2008 16:06:48 +0000

removed unused commented-out code

svn: r10680

original commit: 94748ff8f830b1490c8337e58a35c939b5d4be3e

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

1 file changed, 1 insertion(+), 4 deletions(-)
diff --git a/collects/scribble/html-render.ss b/collects/scribble/html-render.ss
@@ -923,7 +923,6 @@
       (define t-style-get (if (and (pair? t-style) (list? t-style))
                             (lambda (k) (assoc k t-style))
                             (lambda (k) #f)))
-      (define index? (eq? 'index t-style))
       (define (make-row flows style)
         `(tr (,@(if style `([class ,style]) null))
            ,@(let loop ([ds flows]
@@ -960,9 +959,7 @@
                                null))
                           ,@(render-flow d part ri #f))
                      (loop (cdr ds) (cdr as) (cdr vas))))]))))
-      `(#; ; no need for these index-local searches
-        ,@(if index? `(,search-script ,search-field) '())
-        (table ([cellspacing "0"]
+      `((table ([cellspacing "0"]
                 ,@(if need-inline?
                     '([style "display: inline; vertical-align: top;"])
                     null)