gnu: guile-cv: Update to 0.4.0.

* gnu/packages/guile-xyz.scm (guile-cv): Update to 0.4.0.
[arguments]: Set GUILE_AUTO_COMPILE to prevent warnings, fix and
separate phase modifications into different tasks. Use G-expression.
Remove trailing #t.
[inputs]: Replace guile-2.0 with guile-3.0.
[native-inputs]: Update syntax. Add autoconf, automake, texinfo,
libtool and gettext-minimal.
[propagated-inputs]: Update syntax.

Change-Id: I0a4141740de7cdadbe103c62831f11474cb4ddb2

gnu/packages/guile-xyz.scm

@@ -4494,25 +4494,30 @@ feature-set, fully programmable in Guile Scheme.")
 (define-public guile-cv
   (package
     (name "guile-cv")
-    (version "0.2.1")
+    (version "0.4.0")
     (source (origin
               (method url-fetch)
               (uri (string-append "mirror://gnu/guile-cv/guile-cv-"
                                   version ".tar.gz"))
               (sha256
                (base32
-                "0qdf0s2h1xj5lbhnc1pfw69i3zg08pqy2y6869b92ydfis8r82j9"))))
+                "00620zxm1rxlws7vn1zp2zzcb6y6r3szzj6b4b9fyjb86k972izb"))))
     (build-system gnu-build-system)
     (arguments
-     `(#:phases
-       (modify-phases %standard-phases
-         (add-after 'unpack 'prepare-build
-           (lambda* (#:key inputs outputs #:allow-other-keys)
-             (substitute* "configure"
+     (list
+      #:make-flags
+      #~(list "GUILE_AUTO_COMPILE=0") ; to prevent guild warnings
+      #:phases
+      #~(modify-phases %standard-phases
+          (add-after 'unpack 'fix-guile-site-directory
+            (lambda _
+              (substitute* "configure.ac"
                 (("SITEDIR=\"\\$datadir/guile-cv\"")
                  "SITEDIR=\"$datadir/guile/site/$GUILE_EFFECTIVE_VERSION\"")
                 (("SITECCACHEDIR=\"\\$libdir/guile-cv/")
-                "SITECCACHEDIR=\"$libdir/"))
+                 "SITECCACHEDIR=\"$libdir/"))))
+          (add-after 'unpack 'substitute-libs
+            (lambda* (#:key inputs outputs #:allow-other-keys)
               (substitute* "cv/init.scm"
                 (("\\(dynamic-link \"libvigra_c\"\\)")
                  (string-append "(dynamic-link \""
@@ -4524,26 +4529,29 @@ feature-set, fully programmable in Guile Scheme.")
                            (format #f "~alibguile-cv"
                                    (if (getenv "GUILE_CV_UNINSTALLED")
                                        ""
-                                      ,(format #f "~a/lib/"
-                                               (assoc-ref outputs "out"))))))))
+                                       ,(string-append #$output "/lib/")))))))
               (setenv "GUILE_CV_UNINSTALLED" "1")
               ;; Only needed to satisfy the configure script.
               (setenv "LD_LIBRARY_PATH"
-                     (string-append (assoc-ref inputs "vigra-c") "/lib"))
-             #t)))))
+                      (string-append (assoc-ref inputs "vigra-c") "/lib")))))))
     (inputs
-     (list vigra vigra-c guile-2.2))
+     (list vigra vigra-c guile-3.0))
     (native-inputs
-     `(("texlive" ,(texlive-updmap.cfg
+     (list (texlive-updmap.cfg
             (list texlive-booktabs
                   texlive-iwona
                   texlive-lm
                   texlive-siunitx
                   texlive-standalone
-                          texlive-xcolor)))
-       ("pkg-config" ,pkg-config)))
+                  texlive-xcolor))
+           pkg-config
+           autoconf
+           automake
+           texinfo
+           libtool
+           gettext-minimal))
     (propagated-inputs
-     `(("guile-lib" ,guile2.2-lib)))
+     (list guile-lib))
     (home-page "https://www.gnu.org/software/guile-cv/")
     (synopsis "Computer vision library for Guile")
     (description "Guile-CV is a Computer Vision functional programming library