|
|
@ -332,7 +332,7 @@
|
|
|
|
(match-define (list line-width line-height) (quad-size line-q))
|
|
|
|
(match-define (list line-width line-height) (quad-size line-q))
|
|
|
|
(define new-size (let ()
|
|
|
|
(define new-size (let ()
|
|
|
|
(define line-heights
|
|
|
|
(define line-heights
|
|
|
|
(filter-map (λ (q) (pt-y (size q))) pcs))
|
|
|
|
(filter-map (λ (q) (quad-ref q :line-height (λ () (pt-y (size q))))) pcs))
|
|
|
|
(pt line-width (if (empty? line-heights) line-height (apply max line-heights)))))
|
|
|
|
(pt line-width (if (empty? line-heights) line-height (apply max line-heights)))))
|
|
|
|
(list
|
|
|
|
(list
|
|
|
|
(struct-copy
|
|
|
|
(struct-copy
|
|
|
|