From 5aa01523a41aae5e118c93d9ba3f50dba9d587cc Mon Sep 17 00:00:00 2001 From: Matthew Butterick Date: Wed, 2 Jan 2019 18:06:10 -0800 Subject: [PATCH] whoops --- quad/qtest/typewriter.rkt | 2 ++ 1 file changed, 2 insertions(+) diff --git a/quad/qtest/typewriter.rkt b/quad/qtest/typewriter.rkt index c21b636a..a5a85141 100644 --- a/quad/qtest/typewriter.rkt +++ b/quad/qtest/typewriter.rkt @@ -90,6 +90,8 @@ (set-field! @size new-run (delay (list (for/sum ([pc (in-list run-pcs)]) (pt-x (send pc size))) (pt-y (send (car pcs) size))))) + (set-field! @elems new-run (merge-adjacent-strings (apply append (for/list ([pc (in-list run-pcs)]) + (send pc elems))))) (values (cons new-run runs) rest))) (define line-height 16)