suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

Fixed mistake in split-screen.ss.

Browse Source 
svn: r7208
This commit is contained in:
Jens Axel Soegaard 2007-08-28 20:49:54 +00:00
parent 56cf196320
commit 32b0e7609b
1 changed files with 1 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

13
collects/help/servlets/private/split-screen.ss
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))