aboutsummaryrefslogtreecommitdiff
path: root/guix-build-coordinator/build-allocator.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
-rw-r--r--guix-build-coordinator/build-allocator.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix-build-coordinator/build-allocator.scm b/guix-build-coordinator/build-allocator.scm
index aaf9dd6..917a567 100644
--- a/guix-build-coordinator/build-allocator.scm
+++ b/guix-build-coordinator/build-allocator.scm
@@ -158,7 +158,7 @@
((_ . build-value)
(string=? agent-value build-value)))
(vector-fold
- (lambda (tag result)
+ (lambda (_ result tag)
(if (string=? (car tag)
agent-key)
(cons tag result)
@@ -541,7 +541,7 @@
((_ . build-value)
(string=? agent-value build-value)))
(vector-fold
- (lambda (tag result)
+ (lambda (_ result tag)
(if (string=? (car tag)
agent-key)
(cons tag result)