summaryrefslogtreecommitdiff
path: root/src/guile
diff options
context:
space:
mode:
authorLudovic Courtes2007-07-01 23:48:43 +0000
committerLudovic Courtes2007-07-01 23:48:43 +0000
commit61d482a4b1e6e720f4607a4ebda3900c8e88c3b5 (patch)
treec9283a83029c06cbf45c82072934df5cbc03da78 /src/guile
parent2f71af548b132d52db258bf57fc2e0e868411ef8 (diff)
downloadskribilo-61d482a4b1e6e720f4607a4ebda3900c8e88c3b5.tar.gz
skribilo-61d482a4b1e6e720f4607a4ebda3900c8e88c3b5.tar.lz
skribilo-61d482a4b1e6e720f4607a4ebda3900c8e88c3b5.zip
`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
Diffstat (limited to 'src/guile')
-rw-r--r--src/guile/skribilo/engine/lout.scm15
1 files changed, 8 insertions, 7 deletions
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)