reversi

10 years ago · f1fcd6317f
parent 9be58c7014
commit f1fcd6317f
1 changed files with 4 additions and 1 deletions
--- 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)