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

[Ludovic Courtès]

Ludovic Courtès <ludo@gnu.org> skribis:

> $ 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

[...]

>    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>

Fixed:

  
https://git.savannah.gnu.org/cgit/guix.git/commit/?id=b49caaa2b7f624c3395c8e872638282bcc420502

It took me a while to come up with a reduced test case.

Ludo’.