bug#40713: Guix fails to build a system when specifying an inferior package for the kernel

bug#40713: Guix fails to build a system when specifying an inferior package for the kernel

[pkill9]

I'm getting an error when trying to build a Guix system on the latest
Guix revision (commit ea6594e08e2724c64bc07724a07479fc1633dede):

```
Backtrace:
           1 (primitive-load "/root/.config/guix/current/bin/guix")
In guix/ui.scm:
  1936:12  0 (run-guix-command _ . _)

guix/ui.scm:1936:12: In procedure run-guix-command:
In procedure %package-replacement-real: Wrong type argument:
#<inferior-package linux@5.5.9 7f659c641150>
```

I can't find '%package-replacement-real' anywhere in the source.

bug#40713: Guix fails to build a system when specifying an inferior package for the kernel

[Marius Bakke]

[-- Attachment #1: Type: text/plain, Size: 233 bytes --]

pkill9 <pkill9@runbox.com> writes:

> I'm getting an error when trying to build a Guix system on the latest
> Guix revision (commit ea6594e08e2724c64bc07724a07479fc1633dede):

Can you provide a config.scm that reproduces this issue?

[-- Attachment #2: signature.asc --]
[-- Type: application/pgp-signature, Size: 487 bytes --]

bug#40713: Guix fails to build a system when specifying an inferior package for the kernel

[pkill9]

[-- Attachment #1: Type: text/plain, Size: 137 bytes --]

Hi Marius,

> Can you provide a config.scm that reproduces this issue?

Yes, I've attached a basic config.scm that reproduces the error.

[-- Attachment #2: config.scm --]
[-- Type: text/x-scheme, Size: 860 bytes --]

(use-modules (gnu)
             (guix inferior) (guix channels)
             (srfi srfi-1))   ;for 'first'

(define channels
  ;; This is the old revision from which we want to
  ;; extract guile-json.
  (list (channel
         (name 'guix)
         (url "https://git.savannah.gnu.org/git/guix.git")
         (commit
          "ea6594e08e2724c64bc07724a07479fc1633dede"))))

(define inferior
  ;; An inferior representing the above revision.
  (inferior-for-channels channels))

(define inferior-linux
  (first (lookup-inferior-packages inferior "linux-libre")))

(define-public base-system-config
  (operating-system

   (kernel inferior-linux)
   
   (host-name "antelope")

   (timezone "Europe/London")

   (bootloader
    (bootloader-configuration
     (bootloader grub-efi-bootloader)))
   
   (file-systems
    %base-file-systems)))

base-system-config

bug#40713: Guix fails to build a system when specifying an inferior package for the kernel

[Ludovic Courtès]

Hi,

pkill9 <pkill9@runbox.com> skribis:

>> Can you provide a config.scm that reproduces this issue?
>
> Yes, I've attached a basic config.scm that reproduces the error.

Fixed in 71977a6c59460e029c91741c8b11f3a544a70486.

Thanks,
Ludo’.