(declare (module pledge)
         (disable-interrupts)
         (fixnum))

(require-extension lolevel)
(import foreign)
(export pledge)

(foreign-declare "#include <unistd.h>")

(define pledge
  (let ((f (foreign-lambda int pledge (const c-string) (c-pointer (const c-string)))))
    (lambda (promises #!optional (paths '()))
      (f promises #f))))