Fixed mistake in split-screen.ss.

svn: r7208
This commit is contained in:
Jens Axel Soegaard 2007-08-28 20:49:54 +00:00
parent 56cf196320
commit 32b0e7609b

View File

@ -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))