From 751423e35e9b4b30e066de9ae6305748fd8f3b0d Mon Sep 17 00:00:00 2001 From: "Jan (janneke) Nieuwenhuizen" Date: Thu, 25 Jun 2020 17:07:25 +0200 Subject: [PATCH v2] guix: gc: Support for the Hurd. * guix/store/roots.scm (proc-environ-roots): Handle EIO, for the Hurd. --- guix/store/roots.scm | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/guix/store/roots.scm b/guix/store/roots.scm index 58653507f8..ad4f111b79 100644 --- a/guix/store/roots.scm +++ b/guix/store/roots.scm @@ -1,5 +1,6 @@ ;;; GNU Guix --- Functional package management for GNU ;;; Copyright © 2012, 2013, 2014, 2017, 2019 Ludovic Courtès +;;; Copyright © 2020 Jan (janneke) Nieuwenhuizen ;;; ;;; This file is part of GNU Guix. ;;; @@ -24,6 +25,9 @@ #:use-module (srfi srfi-1) #:use-module (srfi srfi-11) #:use-module (srfi srfi-26) + #:use-module (srfi srfi-34) + #:use-module (srfi srfi-35) + #:use-module (rnrs exceptions) #:use-module (ice-9 match) #:use-module (ice-9 regex) #:use-module (ice-9 rdelim) @@ -198,8 +202,13 @@ or the empty list." (append-map rhs-file-names (split-on-nul - (call-with-input-file environ - get-string-all)))) + (catch #t + (lambda _ + (call-with-input-file environ + get-string-all)) + (lambda args + (format (current-error-port) "~a: ignoring EIO: Good luck!\n" environ) + ""))))) (define (referenced-files) "Return the list of referenced store items." -- Jan Nieuwenhuizen | GNU LilyPond http://lilypond.org Freelance IT http://JoyofSource.com | Avatar® http://AvatarAcademy.com