[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
05/09: serialization: Remove unused procedure.
From: |
guix-commits |
Subject: |
05/09: serialization: Remove unused procedure. |
Date: |
Thu, 12 Dec 2019 12:17:55 -0500 (EST) |
civodul pushed a commit to branch master
in repository guix.
commit 1d9a4456a83a197a47bf2bdebc6b60ae78e00cfc
Author: Ludovic Courtès <address@hidden>
Date: Fri Dec 6 00:20:54 2019 +0100
serialization: Remove unused procedure.
* 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 cf263d3..f793feb 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)
- branch master updated (336afa1 -> 16b92d0), guix-commits, 2019/12/12
- 01/09: linux-boot: Don't ignore flags when mounting root file system., guix-commits, 2019/12/12
- 02/09: serialization: Add 'fold-archive'., guix-commits, 2019/12/12
- 06/09: progress: Add 'progress-report-port'., guix-commits, 2019/12/12
- 09/09: news: Add entry for "guix challenge --diff"., guix-commits, 2019/12/12
- 04/09: challenge: Report the best narinfo URI., guix-commits, 2019/12/12
- 03/09: guix archive: Add '--list'., guix-commits, 2019/12/12
- 05/09: serialization: Remove unused procedure.,
guix-commits <=
- 08/09: challenge: Support "--diff=diffoscope"., guix-commits, 2019/12/12
- 07/09: challenge: Add "--diff"., guix-commits, 2019/12/12