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