1 files changed, 25 insertions(+), 25 deletions(-)

M gnu/packages/graphics.scm

@@ 2,7 2,7 @@
 ;;; Copyright © 2015, 2016, 2021, 2022 Ludovic Courtès <ludo@gnu.org>
 ;;; Copyright © 2015 Tomáš Čech <sleep_walker@gnu.org>
 ;;; Copyright © 2016, 2019 Leo Famulari <leo@famulari.name>
-;;; Copyright © 2016, 2017, 2019 Ricardo Wurmus <rekado@elephly.net>
+;;; Copyright © 2016, 2017, 2019, 2023 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2016, 2018, 2021, 2023 Efraim Flashner <efraim@flashner.co.il>
 ;;; Copyright © 2016 Andreas Enge <andreas@enge.fr>
 ;;; Copyright © 2017 Manolis Fragkiskos Ragkousis <manolis837@gmail.com>


@@ 1525,32 1525,32 @@ in Julia).")
     (native-inputs
      (list autoconf automake pkg-config))
     (inputs
-     `(("boost" ,boost)
-       ("libjpeg" ,libjpeg-turbo)
-       ("libpng" ,libpng)
-       ("libtiff" ,libtiff)
-       ("openexr" ,openexr-2)
-       ("sdl" ,sdl)
-       ("zlib" ,zlib)))
+     (list boost
+           libjpeg-turbo
+           libpng
+           libtiff
+           openexr-2
+           sdl
+           zlib))
     (arguments
-     '(#:configure-flags
-       (list "COMPILED_BY=Guix"
-             (string-append "--with-boost-libdir="
-                            (assoc-ref %build-inputs "boost") "/lib")
-             "--disable-optimiz-arch")
+     (list
+      #:configure-flags
+      #~(list "COMPILED_BY=Guix"
+              (string-append "--with-boost-libdir="
+                             #$(this-package-input "boost") "/lib")
+              "--disable-optimiz-arch")
        #:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'run-prebuild
-           (lambda _
-             (setenv "HOME" (getcwd))
-             (with-directory-excursion "unix"
-               (substitute* "prebuild.sh"
-                 (("/bin/sh") (which "sh")))
-               (invoke "sh" "prebuild.sh"))
-             #t))
-         ;; The bootstrap script is run by the prebuild script in the
-         ;; "run-prebuild" phase.
-         (delete 'bootstrap))))
+       '(modify-phases %standard-phases
+          (add-after 'unpack 'run-prebuild
+            (lambda _
+              (setenv "HOME" (getcwd))
+              (with-directory-excursion "unix"
+                (substitute* "prebuild.sh"
+                  (("/bin/sh") (which "sh")))
+                (invoke "sh" "prebuild.sh"))))
+          ;; The bootstrap script is run by the prebuild script in the
+          ;; "run-prebuild" phase.
+          (delete 'bootstrap))))
     (synopsis "Tool for creating three-dimensional graphics")
     (description
      "@code{POV-Ray} is short for the Persistence of Vision Raytracer, a tool