obey line height

5 years ago · e7ab3ea53f
parent da648338be
commit e7ab3ea53f
1 changed files with 1 additions and 1 deletions
--- a/quad/quadwriter/layout.rkt
+++ b/quad/quadwriter/layout.rkt
@ -332,7 +332,7 @@
          (match-define (list line-width line-height) (quad-size line-q))
          (define new-size (let ()
                             (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)))))
          (list
           (struct-copy