diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2015-01-17 16:03:35 +0100 |
|---|---|---|
| committer | Ludovic Courtès <ludo@gnu.org> | 2015-01-17 16:03:35 +0100 |
| commit | 1d50699354141b6f2869fd3b7dc00cda25acacd3 (patch) | |
| tree | e52cf2d5e19edee406e8aee9e502d0d0bb9d4727 | |
| parent | 5b3d863f0099257890f9714f81e24789f8e8e362 (diff) | |
| download | guix-1d50699354141b6f2869fd3b7dc00cda25acacd3.tar guix-1d50699354141b6f2869fd3b7dc00cda25acacd3.tar.gz | |
store: Remove unused variable.
* guix/store.scm (export-paths): Remove unused variable 's'.
| -rw-r--r-- | guix/store.scm | 17 |
1 files changed, 8 insertions, 9 deletions
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 |