Browse Source

serialization: Remove Guile < 2.0.9 workaround.

* guix/serialization.scm (write-contents): Assume 'sendfile' is always
defined.
wip-git-https
Ludovic Courtès 5 years ago
parent
commit
e16c823f80
No known key found for this signature in database GPG Key ID: 90B11993D9AEBB5
  1. 5
      guix/serialization.scm

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

Loading…
Cancel
Save