futurile/guix-play
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

serialization: Remove Guile < 2.0.9 workaround.

Browse Source 
* guix/serialization.scm (write-contents): Assume 'sendfile' is always
defined.
This commit is contained in:
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
guix/serialization.scm
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))