Re: opendir* missing

[Marius Bakke]

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---

signature.asc
Description: PGP signature