diff options
| author | Ludovic Courtès <ludo@gnu.org> | 2016-04-30 23:32:25 +0200 |
|---|---|---|
| committer | 宋文武 <iyzsong@gmail.com> | 2016-05-02 22:05:52 +0800 |
| commit | 07857052db082224648064265fbaaaa5bf8fa609 (patch) | |
| tree | f510ba6a3724a1cad537698e90e1e86e95307544 | |
| parent | e19eb93b8564a5c76ae71878e815ccfa75d62325 (diff) | |
| download | guix-07857052db082224648064265fbaaaa5bf8fa609.tar.gz | |
syscalls: 'statfs' explicitly binds 'statfs64'.
* guix/build/syscalls.scm (statfs): Explicitly bind "statfs64".
| -rw-r--r-- | guix/build/syscalls.scm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm index a85f865180..ed7942c10a 100644 --- a/guix/build/syscalls.scm +++ b/guix/build/syscalls.scm @@ -515,7 +515,7 @@ string TMPL and return its file name. TMPL must end with 'XXXXXX'." (spare1 int128)) (define statfs - (let ((proc (syscall->procedure int "statfs" '(* *)))) + (let ((proc (syscall->procedure int "statfs64" '(* *)))) (lambda (file) "Return a <file-system> data structure describing the file system mounted at FILE." @@ -523,7 +523,7 @@ mounted at FILE." (ret (proc (string->pointer file) (bytevector->pointer stat))) (err (errno))) (if (zero? ret) - (read-statfs stat 0) + (read-statfs stat) (throw 'system-error "statfs" "~A: ~A" (list file (strerror err)) (list err))))))) |