From 61d482a4b1e6e720f4607a4ebda3900c8e88c3b5 Mon Sep 17 00:00:00 2001
From: Ludovic Courtes
Date: Sun, 1 Jul 2007 23:48:43 +0000
Subject: `lout' engine: Fixed argument passing for `lout-illustration'.

* src/guile/skribilo/engine/lout.scm (lout-illustration): Better compute
  argument string for `lout'.

git-archimport-id: skribilo@sv.gnu.org--2006/skribilo--devo--1.2--patch-129
---
 src/guile/skribilo/engine/lout.scm | 15 ++++++++-------
 1 file changed, 8 insertions(+), 7 deletions(-)

(limited to 'src')

diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index bc796bd..7c273ac 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -2811,13 +2811,14 @@
 					     (gensym "lout-illustration")))
 					".eps"))
 		 (port (open-output-pipe
-			(apply string-append
-                               (or (engine-custom lout 'lout-program-name)
-                                   "lout")
-                               " -o " output
-                               " -EPS "
-                               (engine-custom lout
-                                              'lout-program-arguments)))))
+			(string-append
+                         (or (engine-custom lout 'lout-program-name)
+                             "lout")
+                         " -o " output
+                         " -EPS "
+                         (string-join
+                          (engine-custom lout
+                                         'lout-program-arguments))))))
 
 	    ;; send the illustration to Lout's standard input
 	    (display (illustration-header) port)
-- 
cgit v1.2.3