summaryrefslogtreecommitdiff
path: root/guix/build/syscalls.scm
diff options
context:
space:
mode:
Diffstat (limited to 'guix/build/syscalls.scm')
-rw-r--r--guix/build/syscalls.scm3
1 files changed, 2 insertions, 1 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 6ed11a0d69..4379768f5e 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -636,8 +636,9 @@ current process."
(if (eof-object? line)
(reverse result)
(match (string-tokenize line)
+ ;; See the proc(5) man page for a description of the columns.
((id parent-id major:minor root mount-point
- options _ type source _ ...)
+ options _ ... "-" type source _)
(let ((devno (string->device-number major:minor)))
(loop (cons (%mount (octal-decode source)
(octal-decode mount-point)