summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtes2007-07-01 23:48:43 +0000
committerLudovic Courtes2007-07-01 23:48:43 +0000
commit61d482a4b1e6e720f4607a4ebda3900c8e88c3b5 (patch)
treec9283a83029c06cbf45c82072934df5cbc03da78
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
-rw-r--r--ChangeLog17
-rw-r--r--src/guile/skribilo/engine/lout.scm15
2 files changed, 25 insertions, 7 deletions
diff --git a/ChangeLog b/ChangeLog
index c4807f4..e993ff3 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -2,6 +2,23 @@
# arch-tag: automatic-ChangeLog--skribilo@sv.gnu.org--2006/skribilo--devo--1.2
#
+2007-07-01 23:48:43 GMT Ludovic Courtes <ludovic.courtes@laas.fr> patch-129
+
+ Summary:
+ `lout' engine: Fixed argument passing for `lout-illustration'.
+ Revision:
+ skribilo--devo--1.2--patch-129
+
+ * src/guile/skribilo/engine/lout.scm (lout-illustration): Better compute
+ argument string for `lout'.
+
+ modified files:
+ ChangeLog src/guile/skribilo/engine/lout.scm
+
+ new patches:
+ lcourtes@laas.fr--2005-mobile/skribilo--devel--1.2--patch-113
+
+
2007-07-01 23:48:19 GMT Ludovic Courtes <ludovic.courtes@laas.fr> patch-128
Summary:
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)