aboutsummaryrefslogtreecommitdiff
path: root/forge
diff options
context:
space:
mode:
Diffstat (limited to 'forge')
-rw-r--r--forge/utils.scm15
1 files changed, 10 insertions, 5 deletions
diff --git a/forge/utils.scm b/forge/utils.scm
index f0740f0..dd980ef 100644
--- a/forge/utils.scm
+++ b/forge/utils.scm
@@ -53,13 +53,18 @@ value."
PACKAGES are available and their search path environment variables
have been set."
#~(begin
- (use-modules (ice-9 match))
;; Add a reference to the profile.
#$(profile-with-packages packages)
;; Set the environment.
- (for-each (match-lambda
- ((variable . value)
- (setenv variable value)))
- '#$(environment-with-packages packages))
+ ;; We pull out match-lambda using module-ref instead of using
+ ;; use-modules because this gexp will be substituted into other
+ ;; gexps and use-modules only works at the top-level.
+ (let-syntax ((match-lambda (macro-transformer
+ (module-ref (resolve-module '(ice-9 match))
+ 'match-lambda))))
+ (for-each (match-lambda
+ ((variable . value)
+ (setenv variable value)))
+ '#$(environment-with-packages packages)))
;; Run the provided expression.
#$exp))