17/17: environment: Fix unbound-variable bug with '--symlink'.

[guix-commits]

civodul pushed a commit to branch master
in repository guix.

commit 69dfdb7bd190a1562eb11555da6f556b222245d3
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Fri Jun 2 16:57:17 2023 +0200

    environment: Fix unbound-variable bug with '--symlink'.
    
    Fixes <https://issues.guix.gnu.org/63845>.
    Reported by Maxim Cournoyer <maxim.cournoyer@gmail.com>.
    
    * guix/scripts/environment.scm (launch-environment/container): Reference
    'evaluate-populate-directive' before calling 'call-with-container'.
---
 guix/scripts/environment.scm | 5 +++++
 1 file changed, 5 insertions(+)

diff --git a/guix/scripts/environment.scm b/guix/scripts/environment.scm
index 8c0da9694e..9712389842 100644
--- a/guix/scripts/environment.scm
+++ b/guix/scripts/environment.scm
@@ -860,6 +860,11 @@ WHILE-LIST."
                                       '())
                                   (map file-system-mapping->bind-mount
                                        mappings))))
+
+       ;; Trigger autoload now: the child process may lack (gnu build install)
+       ;; in its file system view.
+       (identity evaluate-populate-directive)
+
        (exit/status
         (call-with-container file-systems
           (lambda ()