From e16c823f802d09965acf50cad64ab278dc01c1b2 Mon Sep 17 00:00:00 2001
From: Ludovic Courtès <ludo@gnu.org>
Date: Mon, 17 Apr 2017 23:17:49 +0200
Subject: 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(-)

(limited to 'guix/serialization.scm')

diff --git a/guix/serialization.scm b/guix/serialization.scm
index 4a8cd2086e..e6ae2fc307 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))
-- 
cgit v1.2.3