25/38: gnu: at-spi2-core: Unconditionally lookup docbook in native-inputs.

[guix-commits]

mothacehe pushed a commit to branch core-updates
in repository guix.

commit c3417f07546e9d5c7b1c3acb19d67b3b377d59fb
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Fri Oct 1 16:21:27 2021 +0200

    gnu: at-spi2-core: Unconditionally lookup docbook in native-inputs.
    
    * gnu/packages/gtk.scm 
(at-spi2-core)[arguments]<#:phases>{patch-docbook-sgml}:
      Unconditionally look in (or native-inputs inputs) for docbook-xml.
    
    Signed-off-by: Mathieu Othacehe <othacehe@gnu.org>
---
 gnu/packages/gtk.scm | 9 ++-------
 1 file changed, 2 insertions(+), 7 deletions(-)

diff --git a/gnu/packages/gtk.scm b/gnu/packages/gtk.scm
index d829218..634a012 100644
--- a/gnu/packages/gtk.scm
+++ b/gnu/packages/gtk.scm
@@ -740,15 +740,10 @@ scaled, composited, modified, saved, or rendered.")
            (lambda* (#:key outputs #:allow-other-keys)
              (mkdir-p (string-append (assoc-ref outputs "doc") "/share"))
              #t))
-         ;; TODO(core-updates): Unconditionally use (or native-inputs inputs)
          (add-after 'unpack 'patch-docbook-sgml
-           (lambda* (#:key ,@(if (%current-target-system)
-                                 '(native-inputs)
-                                 '()) inputs #:allow-other-keys)
+           (lambda* (#:key native-inputs inputs #:allow-other-keys)
              (let* ((xmldoc
-                     (string-append (assoc-ref ,(if (%current-target-system)
-                                                    '(or native-inputs inputs)
-                                                    'inputs)
+                     (string-append (assoc-ref (or native-inputs inputs)
                                                "docbook-xml")
                                     "/xml/dtd/docbook")))
                (substitute* "doc/libatspi/libatspi-docs.sgml"