guix-commits
[Top][All Lists]
Advanced

[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)



reply via email to

[Prev in Thread] Current Thread [Next in Thread]