From 32b0e7609bcd0c443ce3bad1cc0ed6e1c11e33dc Mon Sep 17 00:00:00 2001 From: Jens Axel Soegaard Date: Tue, 28 Aug 2007 20:49:54 +0000 Subject: [PATCH] Fixed mistake in split-screen.ss. svn: r7208 --- collects/help/servlets/private/split-screen.ss | 13 +------------ 1 file changed, 1 insertion(+), 12 deletions(-) diff --git a/collects/help/servlets/private/split-screen.ss b/collects/help/servlets/private/split-screen.ss index 3d15029eef..020a21fbd6 100644 --- a/collects/help/servlets/private/split-screen.ss +++ b/collects/help/servlets/private/split-screen.ss @@ -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))