summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--guix/build/syscalls.scm4
1 files changed, 2 insertions, 2 deletions
diff --git a/guix/build/syscalls.scm b/guix/build/syscalls.scm
index 74cb675fcf..56a689f667 100644
--- a/guix/build/syscalls.scm
+++ b/guix/build/syscalls.scm
@@ -385,8 +385,8 @@ the returned procedure is called."
#:return-errno? #t)))
(lambda args
(lambda _
- (error (format #f "~a: syscall->procedure failed: ~s"
- name args))))))
+ (throw 'system-error name "~A" (list (strerror ENOSYS))
+ (list ENOSYS))))))
(define-syntax define-as-needed
(syntax-rules ()