Sorry, substitution like this gives the next errors: ;; This is an operating system configuration template ;; for a "desktop" setup with GNOME and Xfce where the ;; root partition is encrypted with LUKS. (use-modules (gnu) (gnu system nss)              (gnu services desktop)                        ;;(gnu services networking) ;;for tor              (gnu services xorg)           ;;   (gnu packages libusb)           ;;   (gnu services networking)           ;;   (gnu services audio)             ;; (gnu packages linux)           ;;   (gnu services dbus) ) (use-service-modules desktop) (use-package-modules certs gnome) (define %my-services   (modify-services %base-services     (guix-service-type config =>                        (guix-configuration                         (inherit config)                         (substitute-urls (list "https://mirror.hydra.gnu.org ";                                                "https://hydra.gnu.org ";                                                "https://berlin.guixsd.org ";                                                )))))) (operating-system   (host-name "antelope")   (timezone "Europe/Moscow")   (locale "en_US.utf8")   (bootloader (bootloader-configuration                 (bootloader grub-bootloader)                 (target "/dev/sda")))   (file-systems (cons (file-system                         (device "/dev/sda1")                         (mount-point "/")                         (type "ext4")                         )                       %base-file-systems))   (swap-devices '("/dev/sda2"))   (users (cons* (user-account                 (name "bob")                 (comment "bob is good too")                 (group "users")                 (supplementary-groups '("wheel" "netdev"                                         "audio" "video"))                 (home-directory "/home/bob"))                  (user-account                 (name "alice")                 (comment "bobs sister")                 (group "users")                 (supplementary-groups '("wheel" "netdev"                                         "audio" "video"))                 (home-directory "/home/alice"))                       (user-account                 (name "mom")                 (comment "mom")                 (group "users")                 (supplementary-groups '("wheel" "netdev"                                         "audio" "video"))                 (home-directory "/home/mom"))                %base-user-accounts))   ;; This is where we specify system-wide packages.   (packages (cons* nss-certs         ;for HTTPS access                    gvfs              ;for user mounts                    %base-packages))   ;; Add GNOME and/or Xfce---we can choose at the log-in   ;; screen with F1.  Use the "desktop" services, which   ;; include the X11 log-in service, networking with   ;; NetworkManager, and more.   (services (cons*  ;;(tor-service)                     (xfce-desktop-service)                     (bluetooth-service)                     (modify-services %desktop-services                         (elogind-service-type                             c => (elogind-configuration                                 (handle-lid-switch 'ignore)))                         (slim-service-type config =>                             (slim-configuration                                 (inherit config)                                 (startx                                     (xorg-start-command                                         #:configuration-file                                         (xorg-configuration-file                                             #:extra-config                                             '( "Section \"InputClass\"         Identifier \"keyboard-all\"         Option \"XkbLayout\" \"dvorak\"         MatchIsKeyboard \"on\" EndSection Section \"InputClass\"         Identifier \"touchpad-all\"         MatchIsTouchpad \"on\"         Option \"DisableWhileTyping\" \"on\"         Option \"Tapping\" \"on\" EndSection"                                             )                                         )                                     )                                 )                             )                         )                     );;end of moify desktop-srvices                     %my-services   ));;end of services   ;; Allow resolution of '.local' host names with mDNS.   (name-service-switch %mdns-host-lookup-nss))   # guix system reconfigure /etc/config.scm Backtrace:           13 (primitive-load "/root/.config/guix/current/bin/guix") In guix/ui.scm:   1583:12 12 (run-guix-command _ . _) In ice-9/boot-9.scm:     829:9 11 (catch _ _ # …)     829:9 10 (catch _ _ # …) In guix/scripts/system.scm:    1262:8  9 (_) In guix/status.scm:     600:4  8 (call-with-status-report _ _) In guix/scripts/system.scm:    1132:6  7 (process-action _ _ _) In guix/store.scm:   1605:24  6 (run-with-store _ _ #:guile-for-build _ #:system _ # _) In guix/scripts/system.scm:   1145:13  5 (_ _)    840:18  4 (perform-action reconfigure #< kerne…> …) In gnu/system.scm:    846:19  3 (operating-system-derivation _ #:container? _) In gnu/services.scm:     737:6  2 (instantiate-missing-services _) In srfi/srfi-1.scm:    466:18  1 (fold # …) In gnu/services.scm:    738:27  0 (_ (#< type: # …> …) …) gnu/services.scm:738:27: In procedure struct_vtable: Wrong type argument in position 1 (expecting struct): (#< type: # value: #< slim: # allow-empty-passwords?: #t auto-login?: #f default-user: "" theme: # url: "git://git.savannah.gnu.org/guix/guix-artwork.git" commit: "6998d30425289b087c64f63e7415df2241e591db" recursive?: #f> gjomvsacge5nz76kqiyzbpiin32l7nn672voskuo7ahz3za56jga () 300ec00> "/slim"> theme-name: "0.x" xauth: # shepherd: # auto-login-session: #f startx: #< name: "startx" gexp: # name: "X-wrapper" gexp: #:out> "/lib/dri")) (setenv "XKB_BINDIR" (string-append #:out> "/bin")) (let ((X (string-append #:out> "/bin/X"))) (apply execl X X "-xkbdir" (string-append #:out> "/share/X11/xkb") "-config" # name: "xserver.conf" gexp: # (lambda (port) (define drivers (quote #)) (define (device-section driver) (string-append "\nSection \"Device\"\n  Identifier \"device-" driver "\"\n  Driver \"" driver "\"\nEndSection")) (define (screen-section driver resolutions) (string-append "\nSection \"Screen\"\n  Identifier \"screen-" driver "\"\n  Device \"device-" driver "\"\n  SubSection \"Display\"\n    Modes " (string-join (map (match-lambda ((x y) (string-append "\"" (number->string x) "x" (number->string y) "\""))) resolutions)) "\n  EndSubSection\nEndSection")) (define (expand modules) (append-map (lambda (module) (filter-map (lambda (directory) (let ((full (string-append module directory))) (and (file-exists? full) full))) (quote ("/lib/xorg/modules/drivers" "/lib/xorg/modules/input" "/lib/xorg/modules/multimedia" "/lib/xorg/modules/extensions")))) modules)) (display "Section \"Files\"\n" port) (for-each (lambda (font) (format port "  FontPath \"~a\"~%" font)) (quote # "/share/fonts/X11/75dpi"> # "/share/fonts/X11/100dpi"> # "/share/fonts/X11/misc"> # "/share/fonts/X11/cyrillic"> # "/share/fonts/X11/misc"> # "/share/fonts/X11/75dpi">):out>)) (for-each (lambda (module) (format port "  ModulePath \"~a\"~%" module)) (append (expand (quote # # # # # # # # # # # # # # #):out>)) (list # "/lib/xorg/modules">:out>))) (display "EndSection\n" port) (display "\nSection \"ServerFlags\"\n  Option \"AllowMouseOpenFail\" \"on\"\nEndSection\n" port) (display (string-join (map device-section drivers) "\n") port) (newline port) (display (string-join (map (cut screen-section <> (quote #)) drivers) "\n") port) (newline port) (for-each (lambda (config) (display config port)) (quote #))))) 17bf3f0> guile: #f options: (#:local-build? #t)>:out> "-configdir" # name: "xorg.conf.d" gexp: # guile: #f options: (#:local-build? #t)>:out> (cdr (command-line))))) 17bf1e0> guile: #f path: ("/gnu/store/fyxyhwqpbknr608rgpiwp9dn9jins0pc-guix-7b63047c9-modules" "/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0/share/guile/site/2.2" "/gnu/store/c63g5242rs04ipx1zrkma9zxvs8782sj-gnutls-3.5.18/share/guile/site/2.2" "/gnu/store/i6d55i58fjld9cqi96g29npwhxh31wra-guile-git-0.1.0/share/guile/site/2.2" "/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0/share/guile/site/2.2" "/gnu/store/zib3xxlchl0dps78yriy8rxrfdfvwc2n-guile-ssh-0.11.3/share/guile/site/2.2" "/gnu/store/rjp81r0sgvix8cplfgqyhyhmyxxk35a6-guile-sqlite3-0.1.0/share/guile/site/2.2" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile")>:out> # name: "X-wrapper" gexp: #:out> "/lib/dri")) (setenv "XKB_BINDIR" (string-append #:out> "/bin")) (let ((X (string-append #:out> "/bin/X"))) (apply execl X X "-xkbdir" (string-append #:out> "/share/X11/xkb") "-config" # name: "xserver.conf" gexp: # (lambda (port) (define drivers (quote #)) (define (device-section driver) (string-append "\nSection \"Device\"\n  Identifier \"device-" driver "\"\n  Driver \"" driver "\"\nEndSection")) (define (screen-section driver resolutions) (string-append "\nSection \"Screen\"\n  Identifier \"screen-" driver "\"\n  Device \"device-" driver "\"\n  SubSection \"Display\"\n    Modes " (string-join (map (match-lambda ((x y) (string-append "\"" (number->string x) "x" (number->string y) "\""))) resolutions)) "\n  EndSubSection\nEndSection")) (define (expand modules) (append-map (lambda (module) (filter-map (lambda (directory) (let ((full (string-append module directory))) (and (file-exists? full) full))) (quote ("/lib/xorg/modules/drivers" "/lib/xorg/modules/input" "/lib/xorg/modules/multimedia" "/lib/xorg/modules/extensions")))) modules)) (display "Section \"Files\"\n" port) (for-each (lambda (font) (format port "  FontPath \"~a\"~%" font)) (quote # "/share/fonts/X11/75dpi"> # "/share/fonts/X11/100dpi"> # "/share/fonts/X11/misc"> # "/share/fonts/X11/cyrillic"> # "/share/fonts/X11/misc"> # "/share/fonts/X11/75dpi">):out>)) (for-each (lambda (module) (format port "  ModulePath \"~a\"~%" module)) (append (expand (quote # # # # # # # # # # # # # # #):out>)) (list # "/lib/xorg/modules">:out>))) (display "EndSection\n" port) (display "\nSection \"ServerFlags\"\n  Option \"AllowMouseOpenFail\" \"on\"\nEndSection\n" port) (display (string-join (map device-section drivers) "\n") port) (newline port) (display (string-join (map (cut screen-section <> (quote #)) drivers) "\n") port) (newline port) (for-each (lambda (config) (display config port)) (quote #))))) 17bf3f0> guile: #f options: (#:local-build? #t)>:out> "-configdir" # name: "xorg.conf.d" gexp: # guile: #f options: (#:local-build? #t)>:out> (cdr (command-line))))) 17bf1e0> guile: #f path: ("/gnu/store/fyxyhwqpbknr608rgpiwp9dn9jins0pc-guix-7b63047c9-modules" "/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0/share/guile/site/2.2" "/gnu/store/c63g5242rs04ipx1zrkma9zxvs8782sj-gnutls-3.5.18/share/guile/site/2.2" "/gnu/store/i6d55i58fjld9cqi96g29npwhxh31wra-guile-git-0.1.0/share/guile/site/2.2" "/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0/share/guile/site/2.2" "/gnu/store/zib3xxlchl0dps78yriy8rxrfdfvwc2n-guile-ssh-0.11.3/share/guile/site/2.2" "/gnu/store/rjp81r0sgvix8cplfgqyhyhmyxxk35a6-guile-sqlite3-0.1.0/share/guile/site/2.2" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile")>:out> "-logverbose" "-verbose" "-nolisten" "tcp" "-terminate" (cdr (command-line))) 17bf150> guile: #f path: ("/gnu/store/fyxyhwqpbknr608rgpiwp9dn9jins0pc-guix-7b63047c9-modules" "/gnu/store/qbzw2ygy1nq2h0nq6sl9cgg1c5mq5g8z-guile-gcrypt-0.1.0/share/guile/site/2.2" "/gnu/store/c63g5242rs04ipx1zrkma9zxvs8782sj-gnutls-3.5.18/share/guile/site/2.2" "/gnu/store/i6d55i58fjld9cqi96g29npwhxh31wra-guile-git-0.1.0/share/guile/site/2.2" "/gnu/store/1aglyrvw57cbw4njc2q4blmbqin3r7k2-guile-bytestructures-1.0.3/share/guile/site/2.2" "/gnu/store/sw3wxk3ylxd1kc2z4z4kb5191x9pf17n-guile-json-1.2.0/share/guile/site/2.2" "/gnu/store/zib3xxlchl0dps78yriy8rxrfdfvwc2n-guile-ssh-0.11.3/share/guile/site/2.2" "/gnu/store/rjp81r0sgvix8cplfgqyhyhmyxxk35a6-guile-sqlite3-0.1.0/share/guile/site/2.2" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/gnu/store/9970qxhisnrr8cq4rq25zrc4698b037b-module-import" "/run/current-system/profile/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site/2.2" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile/site" "/gnu/store/p9wm67w3rfw3hlb9iljgvsfn84mz4w9d-guile-2.2.4/share/guile")> sessreg: #>> #< type: # value: #< name: "slock" program: # "/bin/ slock"> empty?: #f>> #< type: # value: #< name: "xlock" program: # "/bin/ xlock"> empty?: #f>> #< type: # value: (#)> #< type: # value: #< network-manager: # dns: "default" vpn-plugins: ()>> #< type: # value: #< wpa-supplicant: # pid-file: "/var/run/wpa_supplicant.pid" dbus?: #t interface: #f config-file: #f extra-options: ()>> #< type: # value: #< avahi: # debug?: #f host-name: #f publish?: #t publish-workstation?: #t ipv4?: #t ipv6?: #t wide-area?: #f domains-to-browse: ()>> #< type: # value: #< udisks: #>> #< type: # value: #< upower: # watts-up-pro?: #f poll-batteries?: #t ignore-lid?: #f use-percentage-for-policy?: #f percentage-low: 10 percentage-critical: 3 percentage-action: 2 time-low: 1200 time-critical: 300 time-action: 120 critical-power-action: hybrid-sleep>> #< type: # value: #> #< type: # value: #> #< type: # value: #< geoclue: # whitelist: () wifi-geolocation-url: "https://location.services.mozilla.com/v1/geolocate?key=geoclue " submit-data?: #f wifi-submission-url: "https://location.services.mozilla.com/v1/submit?key=geoclue " submission-nick: "geoclue" applications: ("[gnome-datetime-panel]\nallowed=true\nsystem=true\nusers=\n" "[epiphany]\nallowed=true\nsystem=false\nusers=\n" "[firefox]\nallowed=true\nsystem=false\nusers=\n")>> #< type: # value: #< polkit: # actions: ()>> #< type: # value: #< elogind: # kill-user-processes?: #f kill-only-users: () kill-exclude-users: ("root") inhibit-delay-max-seconds: 5 handle-power-key: poweroff handle-suspend-key: suspend handle-hibernate-key: ignore handle-lid-switch: ignore handle-lid-switch-docked: ignore power-key-ignore-inhibited?: #f suspend-key-ignore-inhibited?: #f hibernate-key-ignore-inhibited?: #f lid-switch-ignore-inhibited?: #t holdoff-timeout-seconds: 30 idle-action: ignore idle-action-seconds: 1800 runtime-directory-size-percent: 10 runtime-directory-size: #f remove-ipc?: #t suspend-state: ("mem" "standby" "freeze") suspend-mode: () hibernate-state: ("disk") hibernate-mode: ("platform" "shutdown") hybrid-sleep-state: ("disk") hybrid-sleep-mode: ("suspend" "platform" "shutdown")>> #< type: # value: #< dbus: # services: ()>> #< type: # value: #< ntp: # servers: ("0.guix.pool.ntp.org" "1.guix.pool.ntp.org" "2.guix.pool.ntp.org" "3.guix.pool.ntp.org") allow-large-adjustment?: #f>> #< type: # value: #> #< type: # value: #< alsa-plugins: # pulseaudio?: #t extra-options: "">> #< type: # value: #< motd: #< name: "motd" content: "This is the GNU operating system, welcome!\n\n" references: ()> allow-empty-passwords?: #t>> #< type: # value: #t> #< type: # value: (("tty1" . "LatGrkCyr-8x16") ("tty2" . "LatGrkCyr-8x16") ("tty3" . "LatGrkCyr-8x16") ("tty4" . "LatGrkCyr-8x16") ("tty5" . "LatGrkCyr-8x16") ("tty6" . "LatGrkCyr-8x16"))> #< type: # value: #< agetty: # tty: #f term: "vt100" baud-rate: #f auto-login: #f login-program: # "/bin/login"> login-pause?: #f eight-bits?: #f no-reset?: #f remote?: #f flow-control?: #f host: #f no-issue?: #f init-string: #f no-clear?: #f local-line: #f extract-baud?: #f skip-login?: #f no-newline?: #f login-options: #f chroot: #f hangup?: #f keep-baud?: #f timeout: #f detect-case?: #f wait-cr?: #f no-hints?: #f no-hostname?: #f long-hostname?: #f erase-characters: #f kill-characters: #f chdir: #f delay: #f nice: #f extra-options: ("-L")>> #< type: # value: #< mingetty: # tty: "tty1" auto-login: #f login-program: #f login-pause?: #f>> #< type: # value: #< mingetty: # tty: "tty2" auto-login: #f login-program: #f login-pause?: #f>> #< type: # value: #< mingetty: # tty: "tty3" auto-login: #f login-program: #f login-pause?: #f>> #< type: # value: #< mingetty: # tty: "tty4" auto-login: #f login-program: #f login-pause?: #f>> #< type: # value: #< mingetty: # tty: "tty5" auto-login: #f login-program: #f login-pause?: #f>> #< type: # value: #< mingetty: # tty: "tty6" auto-login: #f login-program: #f login-pause?: #f>> #< type: # value: (#< interface: "lo" ip: "127.0.0.1" netmask: #f gateway: #f provision: (loopback) requirement: () name-servers: ()>)> #< type: # value: #< syslogd: # "/libexec/syslogd"> config-file: #< name: "syslog.conf" content: "\n     # Log all error messages, authentication messages of\n     # level notice or higher and anything of level err or\n     # higher to the console.\n     # Don't log private authentication messages!\n     *.alert;auth.notice;authpriv.none       /dev/console\n\n     # Log anything (except mail) of level info or higher.\n     # Don't log private authentication messages!\n     *.info;mail.none;authpriv.none          /var/log/messages\n\n     # Like /var/log/messages, but also including \"debug\"-level logs.\n     *.debug;mail.none;authpriv.none         /var/log/debug\n\n     # Same, in a different place.\n     *.info;mail.none;authpriv.none          /dev/tty12\n\n     # The authpriv file has restricted access.\n     authpriv.*                              /var/log/secure\n\n     # Log all the mail messages in one place.\n     mail.*                                  /var/log/maillog\n" references: ()>>> #< type: # value: #f> #< type: # value: #< guix: # build-group: "guixbuild" build-accounts: 10 authorize-key?: #t authorized-keys: (# "/share/guix/hydra.gnu.org.pub"> # "/share/guix/berlin.guixsd.org.pub">) use-substitutes?: #t substitute-urls: ("https://mirror.hydra.gnu.org ") chroot-directories: () max-silent-time: 0 timeout: 0 log-compression: bzip2 extra-options: () log-file: "/var/log/guix-daemon.log" http-proxy: #f tmpdir: #f>> #< type: # value: #< log-file: "/var/log/nscd.log" debug-level: 0 caches: (#< database: hosts positive-time-to-live: 43200 negative-time-to-live: 20 suggested-size: 211 check-files?: #t persistent?: #t shared?: #t max-database-size: 33554432 auto-propagate?: #t> #< database: services positive-time-to-live: 86400 negative-time-to-live: 3600 suggested-size: 211 check-files?: #t persistent?: #t shared?: #t max-database-size: 33554432 auto-propagate?: #t>) name-services: () glibc: #>> #< type: # value: #< udev: # rules: (# # # #)>> #< type: # value: (("/bin/sh" # "/bin/sh">))>)