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:
parent
8a8662d286
commit
f8121329b1
|
@ -385,8 +385,8 @@ the returned procedure is called."
|
||||||
#:return-errno? #t)))
|
#:return-errno? #t)))
|
||||||
(lambda args
|
(lambda args
|
||||||
(lambda _
|
(lambda _
|
||||||
(error (format #f "~a: syscall->procedure failed: ~s"
|
(throw 'system-error name "~A" (list (strerror ENOSYS))
|
||||||
name args))))))
|
(list ENOSYS))))))
|
||||||
|
|
||||||
(define-syntax define-as-needed
|
(define-syntax define-as-needed
|
||||||
(syntax-rules ()
|
(syntax-rules ()
|
||||||
|
|
Loading…
Reference in New Issue