serialization: Remove unused procedure.

* guix/serialization.scm (write-contents): Remove.
This commit is contained in:
Ludovic Courtès 2019-12-06 00:20:54 +01:00
parent 4736d06f78
commit 1d9a4456a8
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -199,24 +199,6 @@ (define buf (make-bytevector buf-size))
(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)