From 979fc843a85ef8445c11cadc7d093184090f30c7 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Tue, 29 May 2012 23:25:31 +0200
Subject: 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'.
---
src/guile/skribilo/engine/lout.scm | 1 +
1 file changed, 1 insertion(+)
(limited to 'src')
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)
--
cgit v1.2.3