From 1d50699354141b6f2869fd3b7dc00cda25acacd3 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Sat, 17 Jan 2015 16:03:35 +0100
Subject: store: Remove unused variable.

* guix/store.scm (export-paths): Remove unused variable 's'.
---
 guix/store.scm | 17 ++++++++---------
 1 file changed, 8 insertions(+), 9 deletions(-)

(limited to 'guix')

diff --git a/guix/store.scm b/guix/store.scm
index 9e3074414e..6fd34bc643 100644
--- a/guix/store.scm
+++ b/guix/store.scm
@@ -806,15 +806,14 @@ PATHS---i.e., PATHS and all their dependencies."
           sorted
           (filter (cut member <> paths) sorted))))
 
-  (let ((s (nix-server-socket server)))
-    (let loop ((paths ordered))
-      (match paths
-        (()
-         (write-int 0 port))
-        ((head tail ...)
-         (write-int 1 port)
-         (and (export-path server head port #:sign? sign?)
-              (loop tail)))))))
+  (let loop ((paths ordered))
+    (match paths
+      (()
+       (write-int 0 port))
+      ((head tail ...)
+       (write-int 1 port)
+       (and (export-path server head port #:sign? sign?)
+            (loop tail))))))
 
 (define* (register-path path
                         #:key (references '()) deriver prefix
-- 
cgit v1.2.3