From 69dfdb7bd190a1562eb11555da6f556b222245d3 Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Fri, 2 Jun 2023 16:57:17 +0200
Subject: [PATCH] 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 ()