bug#72792: error: activate-privileged-programs: unbound variable

[Roman Scherer]

Hello Guix,

with the latest commit on master 

```
root@guix ~# guix describe
Generation 13   Aug 24 2024 13:19:20    (current)
  guix d48af5c
    repository URL: https://git.savannah.gnu.org/git/guix.git
    branch: master
    commit: d48af5cca84914d44b032d0bf0820640ebbe7a4b
```

I can't reconfigure my system anymore. The variable
activate-privileged-programs seems to be unbound somewhere.

This is the full log from reconfiguring my system:

```
root@guix ~# guix system reconfigure -L src src/asahi/guix/systems/server.scm  
--allow-downgrades
The following derivation will be built:
  /gnu/store/d0qilyaaxrdl8ff2n3ll68yls82jxwfw-grub.cfg.drv

building /gnu/store/d0qilyaaxrdl8ff2n3ll68yls82jxwfw-grub.cfg.drv...
/gnu/store/7gvazir1v7fymr4d7p6xzfhv7r22mh81-system
/gnu/store/ryxybcdin64yap6yy5251r0r0p7b1haz-grub.cfg

activating system...
making '/var/guix/profiles/system-31-link' the current system...
Backtrace:
In guix/status.scm:
    839:4 19 (call-with-status-report _ _)
In guix/scripts/system.scm:
   1311:4 18 (_)
In ice-9/boot-9.scm:
  1752:10 17 (with-exception-handler _ _ #:unwind? _ # _)
In guix/store.scm:
   689:37 16 (thunk)
   1330:8 15 (call-with-build-handler _ _)
   1330:8 14 (call-with-build-handler _ _)
   1330:8 13 (call-with-build-handler #<procedure ffff6e989ab0 at g…> …)
  2210:25 12 (run-with-store #<store-connection 256.100 ffff6e997fa0> …)
In guix/scripts/system.scm:
   884:13 11 (_ _)
   788:14 10 (_ _)
In ice-9/boot-9.scm:
    152:2  9 (with-fluid* _ _ _)
In unknown file:
           8 (primitive-load "/gnu/store/456faiiwzb4d79mhiwpswkgx259…")
           7 (primitive-load "/gnu/store/5w1czfglxfvnizjj76x5jz09vwh…")
In ice-9/boot-9.scm:
   260:13  6 (for-each #<procedure primitive-load (_)> _)
In unknown file:
           5 (primitive-load "/gnu/store/7dkzgrc8jdsw03wyv33y95js3if…")
In ice-9/eval.scm:
   182:19  4 (proc #(#<directory (guile-user) ffff8e718c80> "/gnu/…"))
   142:16  3 (compile-top-call #<directory (guile-user) ffff8e718c80> …)
In unknown file:
           2 (%resolve-variable (7 . activate-privileged-programs) #)
In ice-9/boot-9.scm:
  1685:16  1 (raise-exception _ #:continuable? _)
  1685:16  0 (raise-exception _ #:continuable? _)

ice-9/boot-9.scm:1685:16: In procedure raise-exception:
error: activate-privileged-programs: unbound variable
```

In `(gnu services)` the `activate-privileged-programs` function is used
in a gexp and it looks like it is imported from `(gnu system
privilege)`. Shouldn't this function be imported from `(gnu build
activation)` instead?

Roman

signature.asc
Description: PGP signature