syscalls: Report lack of a libc symbol as ENOSYS.

* guix/build/syscalls.scm (syscall->procedure): Throw to 'system-error
with ENOSYS when NAME cannot be found.
This commit is contained in:
Ludovic Courtès 2018-09-10 14:45:19 +02:00
parent 8a8662d286
commit f8121329b1
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5

View file

@ -385,8 +385,8 @@ (define (syscall->procedure return-type name argument-types)
#: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 ()