diff options
| author | Ludovic Courtes | 2007-07-01 23:48:43 +0000 |
|---|---|---|
| committer | Ludovic Courtes | 2007-07-01 23:48:43 +0000 |
| commit | 61d482a4b1e6e720f4607a4ebda3900c8e88c3b5 (patch) | |
| tree | c9283a83029c06cbf45c82072934df5cbc03da78 /src | |
| parent | 2f71af548b132d52db258bf57fc2e0e868411ef8 (diff) | |
| download | skribilo-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')
| -rw-r--r-- | src/guile/skribilo/engine/lout.scm | 15 |
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) |