From ac2eee61bb0bf8406774ab9d56399acbaeac8c69 Mon Sep 17 00:00:00 2001
From: Matthew Flatt <mflatt@racket-lang.org>
Date: Thu, 12 Jun 2008 16:22:18 +0000
Subject: [PATCH] fix Latex rendering of subsubsubsections (PR 9487)

svn: r10235

original commit: 638e458541055c6af1faf27e8ece2409bd57661d
---
 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
index a044df39..b9ce918d 100644
--- 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? "*" ""))