From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:4830:134:3::10]:35897) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dFdE6-0007PO-LY for guix-patches@gnu.org; Tue, 30 May 2017 05:14:08 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dFdE2-0007t7-LL for guix-patches@gnu.org; Tue, 30 May 2017 05:14:06 -0400 Received: from debbugs.gnu.org ([208.118.235.43]:41497) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1dFdE2-0007t3-IX for guix-patches@gnu.org; Tue, 30 May 2017 05:14:02 -0400 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1dFdE2-000363-EY for guix-patches@gnu.org; Tue, 30 May 2017 05:14:02 -0400 Subject: bug#27143: [PATCH] gnu: build: Improve error reporting. Resent-Message-ID: Received: from eggs.gnu.org ([2001:4830:134:3::10]:35732) by lists.gnu.org with esmtp (Exim 4.71) (envelope-from ) id 1dFdDB-0007Ab-KJ for guix-patches@gnu.org; Tue, 30 May 2017 05:13:11 -0400 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1dFdD7-0007XK-LK for guix-patches@gnu.org; Tue, 30 May 2017 05:13:09 -0400 Received: from dd1012.kasserver.com ([85.13.128.8]:51512) by eggs.gnu.org with esmtps (TLS1.0:DHE_RSA_AES_256_CBC_SHA1:32) (Exim 4.71) (envelope-from ) id 1dFdD7-0007Wu-EQ for guix-patches@gnu.org; Tue, 30 May 2017 05:13:05 -0400 From: Danny Milosavljevic Date: Tue, 30 May 2017 11:12:58 +0200 Message-Id: <20170530091258.3245-1-dannym@scratchpost.org> List-Id: List-Unsubscribe: , List-Archive: List-Post: List-Help: List-Subscribe: , Errors-To: guix-patches-bounces+kyle=kyleam.com@gnu.org Sender: "Guix-patches" To: 27143@debbugs.gnu.org * gnu/build/file-systems.scm (read-iso9660-primary-volume-descriptor): Improve error reporting. --- gnu/build/file-systems.scm | 5 ++++- 1 file changed, 4 insertions(+), 1 deletion(-) diff --git a/gnu/build/file-systems.scm b/gnu/build/file-systems.scm index 17c1182ce..bd6997adc 100644 --- a/gnu/build/file-systems.scm +++ b/gnu/build/file-systems.scm @@ -245,7 +245,10 @@ Trailing spaces are trimmed." "Find and read the first primary volume descriptor, starting at OFFSET. Return #f if not found." (let* ((sblock (read-superblock device offset 2048 iso9660-superblock?)) - (type-code (if sblock (array-ref sblock 0) 255))) + (type-code (if sblock + (array-ref sblock 0) + (error (format #f "Could not read ISO9660 primary +volume descriptor from ~s" device))))) (match type-code (255 #f) ; Volume Descriptor Set Terminator. (1 sblock) ; Primary Volume Descriptor