03/05: store: Remove unused variable.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit 1d50699354141b6f2869fd3b7dc00cda25acacd3
Author: Ludovic Courtès <address@hidden>
Date:   Sat Jan 17 16:03:35 2015 +0100

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

diff --git a/guix/store.scm b/guix/store.scm
index 9e30744..6fd34bc 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