env: Fix mount-environment bug — remove hardcoded 'current

This commit is contained in:
Davie Li 2024-01-31 21:20:09 +01:00
parent 93f6c9989b
commit dd295d30ad
Signed by: davie
GPG key ID: 29FD88532FC91BF4

View file

@ -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))