From 7df3ade11286e52829c855b76fc395a4c3831ced Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sat, 8 Mar 2014 12:22:49 +0100 Subject: offload: Fix thinko. * guix/scripts/offload.scm (choose-build-machine)[machine+slots]: Use 'filter-map', not 'filter'. --- guix/scripts/offload.scm | 8 ++++---- 1 file changed, 4 insertions(+), 4 deletions(-) (limited to 'guix/scripts/offload.scm') diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm index 9ebe930a82..2d2dbe36c5 100644 --- a/guix/scripts/offload.scm +++ b/guix/scripts/offload.scm @@ -396,10 +396,10 @@ (define (choose-build-machine requirements machines) (with-file-lock (machine-choice-lock-file) (define machines+slots - (map (lambda (machine) - (let ((slot (acquire-build-slot machine))) - (and slot (list machine slot)))) - machines)) + (filter-map (lambda (machine) + (let ((slot (acquire-build-slot machine))) + (and slot (list machine slot)))) + machines)) (define (undecorate pred) (match-lambda -- cgit v1.2.3