avoid bad substring when something goes weird with section numbers

2016-08-13 07:31:58 -06:00 · 2016-08-13 07:31:58 -06:00 · 495630e001
commit 495630e001
parent f488ed28f3
1 changed files with 2 additions and 1 deletions
--- a/scribble-lib/scribble/base-render.rkt
+++ b/scribble-lib/scribble/base-render.rkt
@ -97,7 +97,8 @@
                                  (format "~a." (car number)))
                              ""))])
                  (if (or keep-separator?
-                          (pair? (car number)))
+                          (pair? (car number))
+                          (equal? s ""))
                      s
                      (substring s 0 (sub1 (string-length s)))))
                sep)))