factor: trim using lists

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

diff --git a/extra/pdf/values/values.factor b/extra/pdf/values/values.factor
index e2122f02c6c66a67de6506bfd341d7647499efbe..1ad24f9a805fc603d55642a9b85ef6b4dbbbf216 100644 (file)
--- a/extra/pdf/values/values.factor
+++ b/extra/pdf/values/values.factor
@@ -1,10 +1,9 @@
 ! Copyright (C) 2011-2012 John Benediktsson
 ! See http://factorcode.org/license.txt for BSD license
 
-USING: accessors arrays assocs calendar colors colors.gray
-combinators combinators.short-circuit fonts formatting
-hashtables io kernel make math math.parser sequences splitting
-strings xml.entities ;
+USING: accessors assocs calendar colors combinators fonts
+formatting hashtables io kernel make math math.parser sequences
+splitting strings xml.entities ;
 
 IN: pdf.values
 
@@ -59,7 +58,7 @@ M: font pdf-value
         } cleave
         "/BaseFont " prepend ,
         ">>" ,
-    ] { } make unlines ;
+    ] { } make join-lines ;
 
 M: timestamp pdf-value
     "%Y%m%d%H%M%S" strftime "D:" prepend ;