Marius Bakke <mba...@fastmail.com> writes: > opendir* is defined as:
Oops, fat fingers. guix/build/syscalls.scm:866:
--8<---------------cut here---------------start------------->8---
(define opendir*
(let ((proc (syscall->procedure '* "opendir" '(*))))
(lambda* (name #:optional (string->pointer string->pointer/utf-8))
(let-values (((ptr err)
(proc (string->pointer name))))
(if (null-pointer? ptr)
(throw 'system-error "opendir*"
"opendir*: ~A"
(list (strerror err))
(list err))
ptr)))))
--8<---------------cut here---------------end--------------->8---
signature.asc
Description: PGP signature
