summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès2020-08-01 17:06:19 +0200
committerLudovic Courtès2020-08-01 17:06:19 +0200
commit8fa28fc0e01271e0f7e67e87bbcfc620d63af3b1 (patch)
treea09d3333bc91c40439fa4b5307a3ecf97c59454f
parent6a890c20d685e1862c2af0fb8b69c116c5e3f857 (diff)
downloadskribilo-8fa28fc0e01271e0f7e67e87bbcfc620d63af3b1.tar.gz
skribilo-8fa28fc0e01271e0f7e67e87bbcfc620d63af3b1.tar.lz
skribilo-8fa28fc0e01271e0f7e67e87bbcfc620d63af3b1.zip
pie: Prevent inlining of '%ploticus-program'.
* src/guile/skribilo/package/pie.scm (%ploticus-program): Add top-level 'set!'.
-rw-r--r--src/guile/skribilo/package/pie.scm4
1 files changed, 4 insertions, 0 deletions
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))