From 34fcbe3a103747fa8a97d55ee12be80c1d0dc1d3 Mon Sep 17 00:00:00 2001 From: Ludovic Courtès Date: Sun, 13 Jan 2013 22:27:00 +0100 Subject: store: In `open-connection', process all the server's stderr. * guix/store.scm (open-connection): Loop until `process-stderr' returns #t. --- guix/store.scm | 5 +++-- 1 file changed, 3 insertions(+), 2 deletions(-) (limited to 'guix/store.scm') diff --git a/guix/store.scm b/guix/store.scm index 2ddb17684c..5111d8f50a 100644 --- a/guix/store.scm +++ b/guix/store.scm @@ -1,5 +1,5 @@ ;;; GNU Guix --- Functional package management for GNU -;;; Copyright © 2012 Ludovic Courtès +;;; Copyright © 2012, 2013 Ludovic Courtès ;;; ;;; This file is part of GNU Guix. ;;; @@ -330,7 +330,8 @@ (define* (open-connection #:optional (file %default-socket-path) (let ((s (%make-nix-server s (protocol-major v) (protocol-minor v)))) - (process-stderr s) + (let loop ((done? (process-stderr s))) + (or done? (process-stderr s))) s)))))))) (define (close-connection server) -- cgit v1.2.3