From 8ae99cff92f9692ec00e7e26db070622ab3496f6 Mon Sep 17 00:00:00 2001
From: Kris Katterjohn <katterjohn@gmail.com>
Date: Wed, 8 Jul 2020 15:12:14 -0400
Subject: [PATCH] (chibi filesystem): add chown

---
 lib/chibi/filesystem.sld  | 2 +-
 lib/chibi/filesystem.stub | 4 ++++
 2 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/lib/chibi/filesystem.sld b/lib/chibi/filesystem.sld
index 23a35232..27ea570c 100644
--- a/lib/chibi/filesystem.sld
+++ b/lib/chibi/filesystem.sld
@@ -33,7 +33,7 @@
           open/append      open/non-block
           file-lock        file-truncate
           file-is-readable? file-is-writable? file-is-executable?
-          chmod is-a-tty?)
+          chmod chown is-a-tty?)
   (cond-expand
    (chibi
     (export lock/shared lock/exclusive lock/non-blocking lock/unlock)
diff --git a/lib/chibi/filesystem.stub b/lib/chibi/filesystem.stub
index 29b35810..fe46138b 100644
--- a/lib/chibi/filesystem.stub
+++ b/lib/chibi/filesystem.stub
@@ -267,6 +267,10 @@
 
 (define-c int chmod (string int))
 
+;;> Sets the file owner and group as in chown.
+
+(define-c int chown (string uid_t gid_t))
+
 ;;> Returns \scheme{#t} if the given port of file descriptor
 ;;> if backed by a TTY object, and \scheme{#f} otherwise.