From 1391addec8ccaf1f8f0719456f64500488bdaf81 Mon Sep 17 00:00:00 2001
From: Matthew Butterick <mb@mbtype.com>
Date: Mon, 30 Mar 2015 19:30:57 -0700
Subject: [PATCH] fl+

---
 quad/wrap-typed.rkt | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/quad/wrap-typed.rkt b/quad/wrap-typed.rkt
index 7ad3d7b0..cff3568c 100644
--- a/quad/wrap-typed.rkt
+++ b/quad/wrap-typed.rkt
@@ -115,7 +115,7 @@
     [(ormap (λ([pred : (Any . -> . Boolean)]) (pred q)) (list char? run? word? word-break?)) 
      (apply measure-text (word-string q) 
             (font-attributes-with-defaults q))]
-    [(LineGroupQuad? q) (foldl + 0.0 (map quad-width (quad-list q)))]
+    [(LineGroupQuad? q) (foldl fl+ 0.0 (map quad-width (quad-list q)))]
     [else 0.0]))
 
 ;; get the ascent (distance from top of text to baseline)