main
Matthew Butterick 8 years ago
parent 6520faf2a7
commit ea71562753

@ -8,7 +8,7 @@
(define page-measure 300)
(define (typeset qs)
(for*/fold ([page-pos 0]
(for/fold ([page-pos 0]
[col-pos 0]
[line-pos 0])
([q (in-vector qs)])

Loading…
Cancel
Save