From mboxrd@z Thu Jan 1 00:00:00 1970 Received: from eggs.gnu.org ([2001:470:142:3::10]:36896) by lists.gnu.org with esmtp (Exim 4.90_1) (envelope-from ) id 1idujK-0004u2-Uo for guix-patches@gnu.org; Sun, 08 Dec 2019 06:28:03 -0500 Received: from Debian-exim by eggs.gnu.org with spam-scanned (Exim 4.71) (envelope-from ) id 1idujK-0000Vl-0A for guix-patches@gnu.org; Sun, 08 Dec 2019 06:28:02 -0500 Received: from debbugs.gnu.org ([209.51.188.43]:44624) by eggs.gnu.org with esmtps (TLS1.0:RSA_AES_128_CBC_SHA1:16) (Exim 4.71) (envelope-from ) id 1idujJ-0000Uw-Qn for guix-patches@gnu.org; Sun, 08 Dec 2019 06:28:01 -0500 Received: from Debian-debbugs by debbugs.gnu.org with local (Exim 4.84_2) (envelope-from ) id 1idujJ-0007v9-OI for guix-patches@gnu.org; Sun, 08 Dec 2019 06:28:01 -0500 Subject: [bug#38518] [PATCH 4/7] serialization: Remove unused procedure. Resent-Message-ID: From: Ludovic =?UTF-8?Q?Court=C3=A8s?= Date: Sun, 8 Dec 2019 12:26:34 +0100 Message-Id: <20191208112637.5534-4-ludo@gnu.org> In-Reply-To: <20191208112637.5534-1-ludo@gnu.org> References: <20191208112637.5534-1-ludo@gnu.org> MIME-Version: 1.0 Content-Transfer-Encoding: 8bit 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: 38518@debbugs.gnu.org Cc: Ludovic =?UTF-8?Q?Court=C3=A8s?= * guix/serialization.scm (write-contents): Remove. --- guix/serialization.scm | 18 ------------------ 1 file changed, 18 deletions(-) diff --git a/guix/serialization.scm b/guix/serialization.scm index cf263d321e..f793feb53d 100644 --- a/guix/serialization.scm +++ b/guix/serialization.scm @@ -199,24 +199,6 @@ substitute invalid byte sequences with question marks. This is a (put-bytevector out buf 0 read) (loop (- left read)))))))) -(define (write-contents file p size) - "Write SIZE bytes from FILE to output port P." - (define (call-with-binary-input-file file proc) - ;; Open FILE as a binary file. This avoids scan-for-encoding, and thus - ;; avoids any initial buffering. Disable file name canonicalization to - ;; avoid stat'ing like crazy. - (with-fluids ((%file-port-name-canonicalization #f)) - (let ((port (open-file file "rb"))) - (dynamic-wind - (const #t) - (cut proc port) - (lambda () - (close-port port)))))) - - (call-with-binary-input-file file - (lambda (input) - (write-contents-from-port input p size)))) - (define (write-contents-from-port input output size) "Write SIZE bytes from port INPUT to port OUTPUT." (write-string "contents" output) -- 2.24.0