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
No known key found for this signature in database
GPG Key ID: 90B11993D9AEBB5
1 changed files with
2 additions and
3 deletions
-
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)) |
|
|
|
|
