diff options
| author | Ludovic Courtès | 2020-08-01 17:06:19 +0200 |
|---|---|---|
| committer | Ludovic Courtès | 2020-08-01 17:06:19 +0200 |
| commit | 8fa28fc0e01271e0f7e67e87bbcfc620d63af3b1 (patch) | |
| tree | a09d3333bc91c40439fa4b5307a3ecf97c59454f | |
| parent | 6a890c20d685e1862c2af0fb8b69c116c5e3f857 (diff) | |
| download | skribilo-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.scm | 4 |
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)) |