Adding a default mode for create-directory.

This commit is contained in:
Alex Shinn 2014-01-10 00:56:51 -05:00
parent 6f5f0c6627
commit c8d2c6ab02

View file

@ -110,7 +110,7 @@
;;> Creates a new directory with the given mode.
;;> Returns \scheme{#t} on success and \scheme{#f} on failure.
(define-c errno (create-directory "mkdir") (string int))
(define-c errno (create-directory "mkdir") (string (default #o775 int)))
;;> Deletes the directory named \var{string} from the filesystem.
;;> Does not attempt to delete recursively.
@ -149,7 +149,7 @@
;;> Creates a new named pipe in the given path.
;;> Returns \scheme{#t} on success and \scheme{#f} on failure.
(define-c errno (make-fifo "mkfifo") (string (default #o644 int)))
(define-c errno (make-fifo "mkfifo") (string (default #o664 int)))
(define-c int (get-file-descriptor-flags "fcntl")
(port-or-fileno (value F_GETFD int)))