take out reports

quad/quad/main.rkt

@@ -7,7 +7,7 @@
   (define-syntax-rule (cons-reverse x y) (cons (reverse x) y))
   (define-values (mps mcs bs b)
     (for/fold ([multipages empty][multicolumns empty][blocks empty][block-acc empty])
-              ([q (in-list (report (split-quad i)))])
+              ([q (in-list (split-quad i))])
       (cond
         [(page-break? q) (values (cons-reverse (cons-reverse (cons-reverse block-acc blocks) multicolumns) multipages) empty empty empty)]
         [(column-break? q) (values multipages (cons-reverse (cons-reverse block-acc blocks) multicolumns) empty empty)]

quad/quad/utils.rkt

@@ -105,7 +105,7 @@
                                 x ; no subelements, so stop here
                                 (map (λ(xi) (do-explode xi x)) (quad-list x)))] ; replace quad with its elements, exploded
                            ;; todo: figure out why newlines foul up the input stream. Does it suffice to ignore them? 
-                           [else (map (λ(xc) (quad 'word (quad-attrs parent) (list xc))) (report (regexp-match* #px"[^\r\n]" x)))]))])
+                           [else (map (λ(xc) (quad 'word (quad-attrs parent) (list xc))) (regexp-match* #px"[^\r\n]" x))]))])
     (flatten (map do-explode (flatten-quad q)))))