From be2d53225c08ac09a2ecfc0044036e276e369383 Mon Sep 17 00:00:00 2001
From: Marius Bakke <marius@gnu.org>
Date: Mon, 27 Jun 2022 11:29:34 +0200
Subject: [PATCH] gnu: libtiff: Use G-expressions.

* gnu/packages/image.scm (libtiff)[arguments]: Convert to gexp.
---
 gnu/packages/image.scm | 13 ++++++-------
 1 file changed, 6 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/image.scm b/gnu/packages/image.scm
index be31d1c35c..a3e73de8fa 100644
--- a/gnu/packages/image.scm
+++ b/gnu/packages/image.scm
@@ -96,6 +96,7 @@
   #:use-module (gnu packages fonts)
   #:use-module ((guix licenses) #:prefix license:)
   #:use-module (guix packages)
+  #:use-module (guix gexp)
   #:use-module (guix download)
   #:use-module (guix git-download)
   #:use-module (guix utils)
@@ -577,13 +578,11 @@ extracting icontainer icon files.")
    (outputs '("out"
               "doc"))                           ;1.8 MiB of HTML documentation
    (arguments
-    ;; Instead of using --docdir, this package has its own --with-docdir.
-    `(#:configure-flags
-      (list (string-append "--with-docdir="
-                           (assoc-ref %outputs "doc")
-                           "/share/doc/"
-                           ,name "-" ,(package-version this-package))
-            "--disable-static")))
+    (list #:configure-flags
+          ;; Instead of using --docdir, this package has its own --with-docdir.
+          #~(list (string-append "--with-docdir=" #$output:doc "/share/doc/"
+                                 #$name "-" #$(package-version this-package))
+                "--disable-static")))
    (inputs
     (list libjpeg-turbo zlib))
    (synopsis "Library for handling TIFF files")