From 61cc56294a396930ff9d6a703e8efd45e5465277 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Mon, 29 Feb 2016 08:00:26 -0800 Subject: [PATCH] take out reports --- quad/quad/main.rkt | 2 +- quad/quad/utils.rkt | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) diff --git a/quad/quad/main.rkt b/quad/quad/main.rkt index 60ada1f7..f4902431 100644 --- a/quad/quad/main.rkt +++ b/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)] diff --git a/quad/quad/utils.rkt b/quad/quad/utils.rkt index 0f9022fd..b29d63b4 100644 --- a/quad/quad/utils.rkt +++ b/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)))))