From 0f7646e3edbf6f1903d98ed85444fd3345749740 Mon Sep 17 00:00:00 2001
From: John Benediktsson <mrjbq7@gmail.com>
Date: Thu, 2 Feb 2017 09:14:10 -0800
Subject: [PATCH] pdf.wrap: make sure to calculate whitespace properly.

---
 extra/pdf/wrap/wrap.factor | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/extra/pdf/wrap/wrap.factor b/extra/pdf/wrap/wrap.factor
index 3e3d50708d..86d9ff86a3 100644
--- a/extra/pdf/wrap/wrap.factor
+++ b/extra/pdf/wrap/wrap.factor
@@ -31,7 +31,7 @@ PRIVATE>
 
 : string>elements ( string font -- elements )
     [ word-split ] dip '[
-        dup word-split1 "" or
+        dup dup [ blank? ] find drop [ cut ] [ "" ] if*
         [ _ swap text-width ] bi@
         <element>
     ] map ;
-- 
2.34.1