From 8fa28fc0e01271e0f7e67e87bbcfc620d63af3b1 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès
Date: Sat, 1 Aug 2020 17:06:19 +0200
Subject: pie: Prevent inlining of '%ploticus-program'.

* src/guile/skribilo/package/pie.scm (%ploticus-program): Add top-level
'set!'.
---
 src/guile/skribilo/package/pie.scm | 4 ++++
 1 file changed, 4 insertions(+)

(limited to 'src')

diff --git a/src/guile/skribilo/package/pie.scm b/src/guile/skribilo/package/pie.scm
index 54bc718..e809211 100644
--- a/src/guile/skribilo/package/pie.scm
+++ b/src/guile/skribilo/package/pie.scm
@@ -155,6 +155,10 @@ the string \"hello\".  Implement `sliceweight' markups too."
 (define %ploticus-program "ploticus")
 (define %ploticus-debug? #f)
 
+;; XXX: Really prevent '%ploticus-program' from being inlined below when
+;; using Guile 3.0.
+(set! %ploticus-program "ploticus")
+
 (define (color-spec->ploticus color-spec)
   (define round (make-rounder 2))
 
-- 
cgit v1.2.3