From dd295d30ad0f151fb810dddd86a9848f853d81b6 Mon Sep 17 00:00:00 2001 From: Davie Li Date: Wed, 31 Jan 2024 21:20:09 +0100 Subject: [PATCH] =?UTF-8?q?env:=20Fix=20mount-environment=20bug=20?= =?UTF-8?q?=E2=80=94=20remove=20hardcoded=20'current?= MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit --- env.scm | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/env.scm b/env.scm index 6d645f7..6fda293 100644 --- a/env.scm +++ b/env.scm @@ -387,7 +387,7 @@ by other environments made." (tree (environment-tree env)) ;; TODO sanity check (current (environment-current env)) - (layers-stack (environment-tag-layers env 'current))) + (layers-stack (environment-tag-layers env tag))) (when (or (not layers-stack) (null? layers-stack)) (throw 'no-layers-stack-found))