section splits

quad/quadwriter/layout.rkt

@@ -684,10 +684,6 @@
                        (pt-x (size x))))
         #:finish-wrap (page-finish-wrap page-quad (pdf-output-path (current-pdf)))))
 
-(define (section-wrap qs)
-  (wrap qs +inf.0
-        #:hard-break section-break-quad?))
-
 (define (insert-blocks lines)
   (define groups-of-lines (contiguous-group-by (λ (x) (quad-ref x :display)) lines))
   (append* (for/list ([line-group (in-list groups-of-lines)])

quad/quadwriter/render.rkt

@@ -14,6 +14,7 @@
          pollen/decode
          sugar/coerce
          sugar/debug
+         sugar/list
          "attrs.rkt"
          "param.rkt"
          "font.rkt"
@@ -177,9 +178,8 @@
   (parameterize ([current-pdf the-pdf]
                  [verbose-quad-printing? #false])
     (define qs (time-log setup-qs (setup-qs qx-arg pdf-path)))
-
     (define sections
-      (for/list ([qs (in-list (time-log section-wrap (section-wrap qs)))])
+      (for/list ([qs (in-list (filter-split qs section-break-quad?))])
         (match-define (list page-width page-height) (parse-page-size (and (pair? qs) (car qs))))
         (match-define (list left-margin top-margin right-margin bottom-margin)
           (setup-margins qs page-width page-height))