Re: opendir* missing

[Ricardo Wurmus]

Marius Bakke <address@hidden> writes:

> Marius Bakke <address@hidden> 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---

Well, I suppose the error actually means that whatever directory is
supposed to be opened does not exist.  It would be great if the error
included the directory it tried to open.

-- 
Ricardo

GPG: BCA6 89B6 3655 3801 C3C6  2150 197A 5888 235F ACAC
https://elephly.net