summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2012-05-29 23:25:31 +0200
committerLudovic Courtès2012-05-29 23:25:31 +0200
commit979fc843a85ef8445c11cadc7d093184090f30c7 (patch)
tree5e1fb4906e14a0b8fc0885c51d1d91994577885f
parent5c3f0c1e0fe9869028d2763e30a9629fe9d3802b (diff)
downloadskribilo-979fc843a85ef8445c11cadc7d093184090f30c7.tar.gz
skribilo-979fc843a85ef8445c11cadc7d093184090f30c7.tar.lz
skribilo-979fc843a85ef8445c11cadc7d093184090f30c7.zip
lout: lout-illustration: Emit the result of `inline-definitions-proc'.
* src/guile/skribilo/engine/lout.scm (lout-illustration): Emit the output of `inline-definitions-proc'.
-rw-r--r--src/guile/skribilo/engine/lout.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/src/guile/skribilo/engine/lout.scm b/src/guile/skribilo/engine/lout.scm
index 95cbc4b..1a3467c 100644
--- a/src/guile/skribilo/engine/lout.scm
+++ b/src/guile/skribilo/engine/lout.scm
@@ -2899,6 +2899,7 @@
(let ((lout (find-engine 'lout)))
(string-append "@SysInclude { picture }\n"
(engine-custom lout 'includes)
+ ((engine-custom lout 'inline-definitions-proc) lout)
"\n\n@Illustration\n"
" @InitialFont { "
(engine-custom lout 'initial-font)