pdf.wrap: make sure to calculate whitespace properly.

[factor.git] / extra / pdf / wrap / wrap.factor

diff --git a/extra/pdf/wrap/wrap.factor b/extra/pdf/wrap/wrap.factor
index 3e3d50708d33eec52e2ef2ec8a89f864b130522f..86d9ff86a30a49905db46a85deba1e94c5d3fa64 100644 (file)
--- 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 ;