bug#48778: ‘guix’ package loads all .scm files from its profile

[Ludovic Courtès]

Hi,

The ‘guix’ package, when installed in a “normal” profile such as
/run/current-system/profile, ends up traversing all the .scm files in
that profile, including those that have nothing to do with it:

--8<---------------cut here---------------start------------->8---
~$ type -P guix
/run/current-system/profile/bin/guix
~$ guix build guix -d
guix build: warning: échec lors du chargement de « (cuirass base) » :
no code for module (fibers)
guix build: warning: échec lors du chargement de « (cuirass database) » :
no code for module (fibers)
guix build: warning: échec lors du chargement de « (cuirass http) » :
no code for module (squee)
guix build: warning: échec lors du chargement de « (cuirass mastodon) » :
no code for module (mastodon)
guix build: warning: échec lors du chargement de « (cuirass remote) » :
no code for module (simple-zmq)
guix build: warning: échec lors du chargement de « (cuirass scripts register) » 
:
no code for module (fibers)
guix build: warning: échec lors du chargement de « (cuirass scripts 
remote-server) » :
no code for module (simple-zmq)
guix build: warning: échec lors du chargement de « (cuirass scripts 
remote-worker) » :
no code for module (simple-zmq)
guix build: warning: échec lors du chargement de « (cuirass scripts web) » :
no code for module (fibers)
guix build: warning: échec lors du chargement de « (web server fiberized) » :
no code for module (fibers)
substitute: mise à jour des substituts depuis « https://ci.guix.gnu.org »... 
100.0 %
36,9 Mo seront téléchargés :
   /gnu/store/z1b1aycydz049rfq8w9j8m4rigvj5603-guix-1.3.0-1.771b866
substitution de 
/gnu/store/z1b1aycydz049rfq8w9j8m4rigvj5603-guix-1.3.0-1.771b866...
téléchargement depuis 
https://ci.guix.gnu.org/nar/lzip/z1b1aycydz049rfq8w9j8m4rigvj5603-guix-1.3.0-1.771b866...
 guix-1.3.0-1.771b866  35.2MiB                                               
7.8MiB/s 00:01 [###               ]  18.6%^C
~$ ls /run/current-system/profile/share/guile/site/3.0/
apicheck.scm    container    git.scm     guix          json.scm        mcron    
 shepherd.scm  text           zstd.scm
avahi           cuirass      gnu         guix.scm      logging         md5.scm  
 sqlite3.scm   unit-test.scm
avahi.scm       cuirass.scm  gnu.scm     htmlprag.scm  lzlib           os       
 ssh           web
bytestructures  debugging    gnutls      ice-9/        lzlib.scm       scheme   
 string        zlib
compat          gcrypt       gnutls.scm  io            match-bind.scm  search   
 term          zlib.scm
config          git          graph       json          math            shepherd 
 texinfo       zstd
--8<---------------cut here---------------end--------------->8---

I believe this is a side effect of
c47f3fc13562d82edfd2d47342574154c452843a, which leads (@ (guix describe)
current-profile) to provide the correct answer when the ‘guix’ package
is installed in a profile (previously ‘current-profile’ would return #f
because the executable was called ‘.guix-real’.)

Ludo’.