reconfigure is broken

guix system: warning: Consider running 'guix pull' followed by

'guix system reconfigure' to get up-to-date packages and security updates.

guix system: warning: /home/clement/.config/guix/current not found: 'guix pull' was never run

guix system: warning: Consider running 'guix pull' before 'reconfigure'.

guix system: warning: Failing to do that may downgrade your system!

/gnu/store/dr4risay18kxb07z8nq3xngr42jf1nh2-system

/gnu/store/wjqf90rcp0rizycslnsynim9bkx3z5cj-grub.cfg

/gnu/store/26m7zjprd11qrhsqxml6882r516ikyzx-grub-2.02

/gnu/store/1mjx721h83hixvsw6lmhg074cmbi6nmy-bootloader-installer

Backtrace:

11 (apply-smob/1 #<catch-closure c94120>)

In ice-9/boot-9.scm:

705:2 10 (call-with-prompt _ _ #<procedure default-prompt-handle…>)

In ice-9/eval.scm:

619:8 9 (_ #(#(#<directory (guile-user) d4c140>)))

In guix/ui.scm:

1557:12 8 (run-guix-command _ . _)

In ice-9/boot-9.scm:

829:9 7 (catch _ _ #<procedure 7f3c7c96e980 at guix/ui.scm:593…> …)

829:9 6 (catch _ _ #<procedure 7f3c7c96e998 at guix/ui.scm:711…> …)

In guix/scripts/system.scm:

1240:8 5 (_)

1110:6 4 (process-action _ _ _)

In guix/store.scm:

1414:24 3 (run-with-store _ _ #:guile-for-build _ #:system _ # _)

In guix/scripts/system.scm:

873:13 2 (_ _)

355:2 1 (_ _)

In unknown file:

0 (_ #<build-daemon 256.97 3864f00>)

ERROR: Wrong type to apply: #<<scheme-file> name: "activate" gexp: #<gexp (begin (use-modules (gnu build activation) (guix build utils)) (close-port (open-file "/var/run/utmpx" "a0")) (mkdir-p "/var/log") (close-port (open-file "/var/log/wtmp" "a0")) (activate-current-system) (for-each primitive-load (quote #<gexp-input (#<<scheme-file> name: "activate-service" gexp: #<gexp (activate-firmware (string-append #<gexp-input #<<computed-file> name: "firmware" gexp: #<gexp (begin (use-modules (guix build union) (srfi srfi-1)) (union-build #<gexp-output out> (quote #<gexp-input (#<package ath9k-htc-firmware@1.4.0 gnu/packages/firmware.scm:43 1e45a80> #<package openfwwf-firmware@5.2 gnu/packages/firmware.scm:156 1e45900>):out>) #:log-port #<gexp-input #<gexp (current-error-port) 4563630>:out> #:symlink #<gexp-input #<gexp symlink 4563660>:out> #:resolve-collision #<gexp-input warn-about-collision:out>)) 4563540> guile: #f options: (#:local-build? #t)>:out> "/lib/firmware")) 45634b0> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp (begin (activate-modprobe #<gexp-input #<<program-file> name: "modprobe" gexp: #<gexp (begin (setenv "LINUX_MODULE_DIRECTORY" "/run/booted-system/kernel/lib/modules") (apply execl #<gexp-input "/run/current-system/profile/bin/modprobe":out> (cons #<gexp-input "/run/current-system/profile/bin/modprobe":out> (cdr (command-line))))) 1304a20> guile: #f path: ("/home/clement/.packages" "/home/clement/.guix" "/home/clement/.guix" "/home/clement/.guix-profile/share/guile/site/2.2" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/2.2" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site/2.2" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile/site" "/gnu/store/1mr5izrbxwd7cbq8m1xrqm45rzkibpsj-guile-2.2.3/share/guile")>:out>) (activate-ptrace-attach)) 1304990> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp 4563450> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp (activate-etc #<gexp-input #<<computed-file> name: "etc" gexp: #<gexp 45747e0> guile: #f options: (#:local-build? #t)>:out>) 4574750> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp 45c02d0> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp (activate-special-files (quote #<gexp-input (("/bin/sh" #<<file-append> base: #<package bash@4.4.19 gnu/packages/bash.scm:119 2227300> suffix: ("/bin/sh")>)):out>)) 45c0240> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp 45d5db0> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp (begin (use-modules (guix build utils)) (define (touch file-name) (call-with-output-file file-name (const #t))) (mkdir-p "/etc/ssh") (chmod "/etc/ssh" 493) (mkdir-p (dirname #<gexp-input "/var/run/sshd.pid":out>)) (catch (quote system-error) (lambda () (delete-file-recursively "/etc/authorized_keys.d")) (lambda args (unless (= ENOENT (system-error-errno args)) (apply throw args)))) (copy-recursively #<gexp-input #<<computed-file> name: "openssh-authorized-keys" gexp: #<gexp (begin (use-modules (ice-9 match) (srfi srfi-26) (guix build utils)) (mkdir #<gexp-output out>) (for-each (match-lambda ((user keys ...) (let ((file (string-append #<gexp-output out> "/" user))) (call-with-output-file file (lambda (port) (for-each (lambda (key) (call-with-input-file key (cut dump-port <> port))) keys)))))) (quote #<gexp-input (("clement" #<<plain-file> name: "clement" content: "ssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQC4yLOWrukPll9QbgSEeN8+E6cyr/TaPb7U1vcq0rU5zoOs2p38tqEUac5U/dyHgDW03iV+LLAq7CZX0IrJlQ8QZ4zPORpMQE3KcJOopKHtFUK7gCyA90a/8bZNm0riumGmbypimTbOTZkFqczMYlPaVTiVfwREbGgVNRgkf5B50M4VEgDXGDpmG0puex+cF+/W4S+3YJh07mGUOwhx2qSefJ2rNvMTQrP01kZpYquaB9nIS1k4zN1ftJH3Y/OIAQIbV1VaonVCv9Oxriy0PStxvCWkf2HhXhpoV/R2qCIstkb9YCZ4k5a2eANEsdw+iQware2N6GQjVX3a4bIRBHCf clement@rodion\nssh-rsa AAAAB3NzaC1yc2EAAAADAQABAAABAQCXBYINeXwJR3g4s0dr/AjqylUE2lSOdYt499ZxNcQmZlGtpnvB9CRojL2w/XOH+pvVpg0F2lG2HphPfeJRSjIrfXj34BDl6Ql4X4TD+n41EvUd1QfY/MZtkHiYp/BhyPHOixT4VZo4lM/NagSUU/JFHA9D5sEXeLrbQwB0972Fj0x+183mkdaiFTlkMrrMJ9/zj+hnSTGLmSpoxhS6ZR+DBaRWrcG2DPk9ISAn7BV54UQLFA9Gh8ksuUQFQGMc+AaC+NKs7OdT55WP2E4JHewe0cQtsa6jVCnMsNL1kB1w7bpn07LB5t/ydeClGlRRZXWgV4qnOYF2/m+gCust2Iwv clement@newt\n" references: ()>)):out>))) 45d5c90> guile: #f options: (#:local-build? #t)>:out> "/etc/ssh/authorized_keys.d") (chmod "/etc/ssh/authorized_keys.d" 365) (let ((lastlog "/var/log/lastlog")) (when #<gexp-input #t:out> (unless (file-exists? lastlog) (touch lastlog)))) (system* (string-append #<gexp-input #<package openssh@7.7p1 gnu/packages/ssh.scm:149 18d5240>:out> "/bin/ssh-keygen") "-A")) 45d5ba0> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp (activate-special-files (quote #<gexp-input (("/bin/sh" #<<file-append> base: #<package bash@4.4.19 gnu/packages/bash.scm:119 2227300> suffix: ("/bin/sh")>) ("/bin/bash" #<<file-append> base: #<package bash@4.4.19 gnu/packages/bash.scm:119 2227300> suffix: ("/bin/bash")>) ("/usr/bin/perl" #<<file-append> base: #<package perl@5.26.1 gnu/packages/perl.scm:63 226fcc0> suffix: ("/bin/perl")>) ("/usr/bin/env" #<<file-append> base: #<package coreutils@8.29 gnu/packages/base.scm:327 224fd80> suffix: ("/bin/env")>)):out>)) 45d5b40> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp (begin (use-modules (guix build utils)) (define %user (getpw "ntpd")) (let ((directory "/var/run/ntpd")) (mkdir-p directory) (chown directory (passwd:uid %user) (passwd:gid %user)))) 45d5b10> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #<gexp (begin (use-modules (guix build utils)) (mkdir-p #<gexp-input "/var/cache/cuirass":out>) (mkdir-p #<gexp-input "/var/run/cuirass":out>) (let ((uid (passwd:uid (getpw #<gexp-input "cuirass":out>))) (gid (group:gid (getgr #<gexp-input "cuirass":out>)))) (chown #<gexp-input "/var/cache/cuirass":out> uid gid) (chown #<gexp-input "/var/run/cuirass":out> uid gid))) 45d59f0> splice?: #f> #<<scheme-file> name: "activate-service" gexp: #t splice?: #f>):out>))) 45d5360> splice?: #f>