From c4bb36be66340d7a5c8e3f289452e8dc76d8e1b0 Mon Sep 17 00:00:00 2001
From: Eli Barzilay <eli@racket-lang.org>
Date: Tue, 8 Jul 2008 16:06:48 +0000
Subject: [PATCH] removed unused commented-out code

svn: r10680

original commit: 94748ff8f830b1490c8337e58a35c939b5d4be3e
---
 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
index fe347fe2..d527132d 100644
--- 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)