From 92cb2e28884ab6ecc5c113ef54eb5aeebae9bb2b Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sun, 2 Feb 2014 01:32:50 +0100
Subject: offload: Have 'build-machines' honor its argument.

* guix/scripts/offload.scm (build-machines): Honor FILE.
---
 guix/scripts/offload.scm | 6 +++---
 1 file changed, 3 insertions(+), 3 deletions(-)

(limited to 'guix/scripts/offload.scm')

diff --git a/guix/scripts/offload.scm b/guix/scripts/offload.scm
index 1f68160785..00a145e5e9 100644
--- a/guix/scripts/offload.scm
+++ b/guix/scripts/offload.scm
@@ -108,7 +108,7 @@ determined."
       (save-module-excursion
        (lambda ()
          (set-current-module %user-module)
-         (primitive-load %machine-file))))
+         (primitive-load file))))
     (lambda args
       (match args
         (('system-error . _)
@@ -117,10 +117,10 @@ determined."
            (if (= ENOENT err)
                '()
                (leave (_ "failed to open machine file '~a': ~a~%")
-                      %machine-file (strerror err)))))
+                      file (strerror err)))))
         (_
          (leave (_ "failed to load machine file '~a': ~s~%")
-                %machine-file args))))))
+                file args))))))
 
 (define (open-ssh-gateway machine)
   "Initiate an SSH connection gateway to MACHINE, and return the PID of the
-- 
cgit v1.2.3