~ chicken-core (chicken-5) 0bc635e4f1afb745010db8ed9b6b9528821d01f0

commit 0bc635e4f1afb745010db8ed9b6b9528821d01f0
Author:     Evan Hanson <evhan@foldling.org>
AuthorDate: Thu Jun 8 17:10:36 2017 +1200
Commit:     Evan Hanson <evhan@foldling.org>
CommitDate: Thu Jun 8 17:20:14 2017 +1200

    Replace missing chown stub in posixwin.scm
    
    This went missing in f4e53ff, causing build failures on Windows.

diff --git a/posix-common.scm b/posix-common.scm
index 3f8dd36e..3543e6bd 100644
--- a/posix-common.scm
+++ b/posix-common.scm
@@ -309,6 +309,7 @@ EOF
 
 (define (set-file-owner! f uid)
   (chown 'set-file-owner! f uid -1))
+
 (define (set-file-group! f gid)
   (chown 'set-file-group! f -1 gid))
 
@@ -316,6 +317,7 @@ EOF
   (getter-with-setter
    (lambda (f) (stat f #f #t 'file-owner) _stat_st_uid)
    set-file-owner!) )
+
 (define file-group
   (getter-with-setter
    (lambda (f) (stat f #f #t 'file-group) _stat_st_gid)
diff --git a/posixwin.scm b/posixwin.scm
index c0a2cf88..5872a481 100644
--- a/posixwin.scm
+++ b/posixwin.scm
@@ -1325,6 +1325,7 @@ EOF
 ;;; unimplemented stuff:
 
 (define-unimplemented change-directory*)
+(define-unimplemented chown) ; covers set-file-group! and set-file-owner!
 (define-unimplemented create-fifo)
 (define-unimplemented create-session)
 (define-unimplemented create-symbolic-link)
@@ -1347,9 +1348,6 @@ EOF
 (define-unimplemented process-signal)
 (define-unimplemented read-symbolic-link)
 (define-unimplemented set-alarm!)
-;; Handled by chown above
-;(define-unimplemented set-file-group!)
-;(define-unimplemented set-file-owner!)
 (define-unimplemented set-group-id!)
 (define-unimplemented set-process-group-id!)
 (define-unimplemented set-root-directory!)