me/guix
Archived
1
0
Fork 0
Code Activity

store: In `open-connection', process all the server's stderr.

Browse source 
* guix/store.scm (open-connection): Loop until `process-stderr' returns #t.
This commit is contained in:
Ludovic Courtès 2013-01-13 22:27:00 +01:00
parent 85a8a5f556
commit 34fcbe3a10
1 changed files with 3 additions and 2 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
guix/store.scm
View file

@ -1,5 +1,5 @@
;;; GNU Guix --- Functional package management for GNU ;;; GNU Guix --- Functional package management for GNU
;;; Copyright © 2012 Ludovic Courtès <ludo@gnu.org> ;;; Copyright © 2012, 2013 Ludovic Courtès <ludo@gnu.org>
;;; ;;;
;;; This file is part of GNU Guix. ;;; This file is part of GNU Guix.
;;; ;;;
@ -330,7 +330,8 @@
(let ((s (%make-nix-server s (let ((s (%make-nix-server s
(protocol-major v) (protocol-major v)
(protocol-minor v)))) (protocol-minor v))))
(process-stderr s) (let loop ((done? (process-stderr s)))
(or done? (process-stderr s)))
s)))))))) s))))))))
(define (close-connection server) (define (close-connection server)