From 7df3ade11286e52829c855b76fc395a4c3831ced Mon Sep 17 00:00:00 2001
From: =?UTF-8?q?Ludovic=20Court=C3=A8s?= <ludo@gnu.org>
Date: Sat, 8 Mar 2014 12:22:49 +0100
Subject: [PATCH] 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(-)

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