diff options
| author | Christopher Baines <mail@cbaines.net> | 2021-01-17 21:23:34 +0000 |
|---|---|---|
| committer | Christopher Baines <mail@cbaines.net> | 2021-01-17 21:23:34 +0000 |
| commit | bd73f8c42963dc7c9a1c769179443849129ada1e (patch) | |
| tree | c5d928f652a639ca62b903e84d55981d0e9a45cc /guix-build-coordinator/build-allocator.scm | |
| parent | f462547786710c72ab5dc65faf84fb9cdb5ea339 (diff) | |
| download | build-coordinator-bd73f8c42963dc7c9a1c769179443849129ada1e.tar build-coordinator-bd73f8c42963dc7c9a1c769179443849129ada1e.tar.gz | |
Fix up a load of the tag related code
Turns out vector-fold and vector-map don't work like I'd expected them to,
like fold and map for vectors.
Diffstat (limited to 'guix-build-coordinator/build-allocator.scm')
| -rw-r--r-- | guix-build-coordinator/build-allocator.scm | 4 |
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) |