02/02: serialization: Remove Guile < 2.0.9 workaround.

[Ludovic Courtès]

civodul pushed a commit to branch master
in repository guix.

commit e16c823f802d09965acf50cad64ab278dc01c1b2
Author: Ludovic Courtès <address@hidden>
Date:   Mon Apr 17 23:17:49 2017 +0200

    serialization: Remove Guile < 2.0.9 workaround.
    
    * guix/serialization.scm (write-contents): Assume 'sendfile' is always
    defined.
---
 guix/serialization.scm | 5 ++---
 1 file changed, 2 insertions(+), 3 deletions(-)

diff --git a/guix/serialization.scm b/guix/serialization.scm
index 4a8cd20..e6ae2fc 100644
--- a/guix/serialization.scm
+++ b/guix/serialization.scm
@@ -214,9 +214,8 @@ substitute invalid byte sequences with question marks.  
This is a
   (write-string "contents" p)
   (write-long-long size p)
   (call-with-binary-input-file file
-    ;; Use `sendfile' when available (Guile 2.0.8+).
-    (if (and (compile-time-value (defined? 'sendfile))
-             (file-port? p))
+    ;; Use 'sendfile' when P is a file port.
+    (if (file-port? p)
         (cut sendfile p <> size 0)
         (cut dump <> p size)))
   (write-padding size p))