suck it up

9 years ago · 1d91c09c75
parent d98ac52705
commit 1d91c09c75
1 changed files with 1 additions and 1 deletions
--- a/quad/wrap.rkt
+++ b/quad/wrap.rkt
@ -278,7 +278,7 @@
  ;; quads->line function hoists common attributes into the line
  (let* ([new-line-quads (map embed-width merged-quads merged-quad-widths)] ; 15% of time
         [new-line-quads (map record-ascent new-line-quads)] ; 35% of time
-         [new-line (apply line (quad-attrs (car new-line-quads)) new-line-quads)] 
+         [new-line (quads->line new-line-quads)] 
         [new-line (quad-attr-set new-line world:line-looseness-key looseness)])
    new-line))