bkyk8rc3zvpnsf5inmcqq4n3k98cv6hj-my-site-hyper-literate-git.test.suzanne.soy-0.0.1

commit ac2eee61bb0bf8406774ab9d56399acbaeac8c69
parent e5d3889fe41498e96c15f340cef93313d3738153
Author: Matthew Flatt <mflatt@racket-lang.org>
Date:   Thu, 12 Jun 2008 16:22:18 +0000

fix Latex rendering of subsubsubsections (PR 9487)

svn: r10235

original commit: 638e458541055c6af1faf27e8ece2409bd57661d

Diffstat:
M
collects/scribble/latex-render.ss
 | 
6
++++--

1 file changed, 4 insertions(+), 2 deletions(-)
diff --git a/collects/scribble/latex-render.ss b/collects/scribble/latex-render.ss
@@ -49,13 +49,15 @@
         (when (and (part-title-content d) (pair? number))
           (when (part-style? d 'index)
             (printf "\\twocolumn\n\\parskip=0pt\n\\addcontentsline{toc}{section}{Index}\n"))
-          (let ([no-number? (and (pair? number) (not (car number)))])
+          (let ([no-number? (and (pair? number) 
+                                 (or (not (car number))
+                                     ((length number) . > . 3)))])
             (printf "\\~a~a~a"
                     (case (length number)
                       [(0 1) "sectionNewpage\n\n\\section"]
                       [(2) "subsection"]
                       [(3) "subsubsection"]
-                      [else "subsubsection*"])
+                      [else "subsubsection"])
                     (if (and (part-style? d 'hidden) (not no-number?))
                       "hidden" "")
                     (if no-number? "*" ""))