mirror of
https://github.com/ashinn/chibi-scheme.git
synced 2025-05-20 14:19:18 +02:00
Adding a default mode for create-directory.
This commit is contained in:
parent
6f5f0c6627
commit
c8d2c6ab02
1 changed files with 2 additions and 2 deletions
|
@ -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)))
|
||||
|
|
Loading…
Add table
Reference in a new issue