guix-devel
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

Re: opendir* missing


From: Marius Bakke
Subject: Re: opendir* missing
Date: Sat, 17 Jun 2017 13:10:43 +0200
User-agent: Notmuch/0.24.2 (https://notmuchmail.org) Emacs/25.2.1 (x86_64-unknown-linux-gnu)

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

Attachment: signature.asc
Description: PGP signature


reply via email to

[Prev in Thread] Current Thread [Next in Thread]