bug#41713: Package referenced with ‘ungexp-native’ gets cross-compiled

[Ludovic Courtès]

As reported by Mathieu in <https://issues.guix.gnu.org/41350>:

--8<---------------cut here---------------start------------->8---
$ cat ~/src/guix-debugging/graft-cross-compilation.scm
(use-modules (gnu) (guix)
             (gnu packages gtk))

(with-store store
  (run-with-store store
    (mlet* %store-monad ((target (set-current-target "aarch64-linux-gnu"))
                         (drv (lower-object
                               (computed-file "test"
                                              #~(begin
                                                  (mkdir #$output)
                                                  #+guile-rsvg)))))
      (return (derivation->output-path drv)))))
$ ./pre-inst-env guile ~/src/guix-debugging/graft-cross-compilation.scm
Backtrace:
In guix/gexp.scm:
   243:18 19 (_ _)
   1061:2 18 (_ _)
    921:2 17 (_ _)
    782:4 16 (_ _)
In guix/store.scm:
  1899:12 15 (_ #<store-connection 256.99 7ff08bb752d0>)
   1336:2 14 (map/accumulate-builds #<store-connection 256.99 7ff08bb752d0> _ _)
In srfi/srfi-1.scm:
   586:17 13 (map1 ((#<package guile-rsvg@2.18.1-0.05c6a2f 
gnu/packages/gtk.scm:941 7ff080bf2f00> "out")))
In guix/store.scm:
   1295:8 12 (call-with-build-handler #<procedure build-accumulator (continue 
store things mode)> _)
  2017:24 11 (run-with-store #<store-connection 256.99 7ff08bb752d0> _ 
#:guile-for-build _ #:system _ #:target _)
In guix/gexp.scm:
   785:13 10 (_ _)
In guix/store.scm:
   1851:8  9 (_ _)
In guix/gexp.scm:
   243:18  8 (_ _)
In guix/store.scm:
  1886:38  7 (_ #<store-connection 256.99 7ff08bb752d0>)
In guix/packages.scm:
  1072:16  6 (package-derivation _ #<package guile-rsvg@2.18.1-0.05c6a2f 
gnu/packages/gtk.scm:941 7ff080bf2f00> _ #:graft? _)
  1393:16  5 (thunk)
   1280:6  4 (bag-grafts #<store-connection 256.99 7ff08bb752d0> #<<bag> name: 
"guile-rsvg-2.18.1-0.05c6a2f" system: "x86_64-linux" target: #f build-inputs: 
(("source" #<origin "https://gitlab.com…>)
  1260:45  3 (fold-bag-dependencies #<procedure 7ff0867da880 at 
guix/packages.scm:1280:29 (package grafts)> _ _ #:native? _)
  1072:16  2 (package->bag _ _ _ #:graft? _)
  1183:21  1 (thunk)
In ice-9/boot-9.scm:
  1669:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1669:16: In procedure raise-exception:
ERROR:
  1. &package-cross-build-system-error: #<package gobject-introspection@1.62.0 
gnu/packages/glib.scm:416 7ff0839365a0>
--8<---------------cut here---------------end--------------->8---

This is on 4960a955f8f77cc4c35d0db749cd6f3de8787bff-ish.

Ludo’.