suzanne.soy/hyper-literate
1
0
Fork 0
Code Issues 4 Pull Requests 1 Actions Packages Projects Releases Wiki Activity

removed unused commented-out code

Browse Source 
svn: r10680

original commit: 94748ff8f830b1490c8337e58a35c939b5d4be3e
This commit is contained in:
Eli Barzilay 2008-07-08 16:06:48 +00:00
parent fd3855f965
commit c4bb36be66
1 changed files with 1 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
collects/scribble/html-render.ss
View File

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