From f1fcd6317f049ebe054761abe8f030c8d4b436d3 Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Sun, 18 Jan 2015 16:24:46 -0800 Subject: [PATCH] reversi --- quad/main.rkt | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/quad/main.rkt b/quad/main.rkt index fdb5c529..f4968e67 100644 --- a/quad/main.rkt +++ b/quad/main.rkt @@ -189,7 +189,10 @@ (define/contract (typeset x) (coerce/input? . -> . doc?) (load-text-cache-file) - (define pages (append-map (λ(mp) (columns->pages (append-map (λ(mc) (lines->columns (append-map block-quads->lines mc))) mp))) (input->nested-blocks x))) + (define pages (append* (for/list ([multipage (in-list (input->nested-blocks x))]) + (columns->pages (append* (for/list ([multicolumn (in-list multipage)]) + (lines->columns (append* (for/list ([block-quads (in-list multicolumn)]) + (block-quads->lines block-quads)))))))))) (define doc (pages->doc pages)) (update-text-cache-file) doc)