serialization: Remove Guile < 2.0.9 workaround.

* guix/serialization.scm (write-contents): Assume 'sendfile' is always
defined.
master
Ludovic Courtès 2017-04-17 23:17:49 +02:00
parent 94df39cc08
commit e16c823f80
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 2 additions and 3 deletions

View File

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