Fixed mistake in split-screen.ss.
svn: r7208
This commit is contained in:
parent
56cf196320
commit
32b0e7609b
|
@ -118,16 +118,6 @@
|
|||
|
||||
(define (html-left-item item)
|
||||
(match item
|
||||
<<<<<<< .mine
|
||||
['UP (list '(font ((size "-2")) nbsp))]
|
||||
['-- (list '(tr (td " ") ((height "4")) (td ((colspan "2")))))]
|
||||
[('VERBATIM sxml) (list `(tr (td ((align "center")) ,sxml)))]
|
||||
[(header) (list `(tr (td #;((colspan "2")) ,header)))]
|
||||
[(header body ...) (list `(tr (td #;((colspan "2")) ,header))
|
||||
`(tr (td ,@body)))]
|
||||
[other (list other)]))
|
||||
|
||||
=======
|
||||
['UP (list '(font ((size "-2")) nbsp))]
|
||||
['-- (list '(tr ((height "4")) (td ((colspan "2")))))]
|
||||
[('VERBATIM sxml) (list `(tr (td ((align "center")) ,sxml)))]
|
||||
|
@ -135,8 +125,7 @@
|
|||
[(header body ...) (list `(tr (td #;((colspan "2")) ,header))
|
||||
`(tr (td ,@body)))]
|
||||
[other (list other)]))
|
||||
|
||||
>>>>>>> .r7191
|
||||
|
||||
(define (html-right-items items)
|
||||
(mappend html-right-item items))
|
||||
|
||||
|
|
Loading…
Reference in New Issue
Block a user