~ chicken-core (chicken-5) 072aea8a3458ddacfa23115d217a64f4cecbaf28

commit 072aea8a3458ddacfa23115d217a64f4cecbaf28
Author:     Peter Bex <peter@more-magic.net>
AuthorDate: Sat Sep 2 13:45:44 2017 +0200
Commit:     Peter Bex <peter@more-magic.net>
CommitDate: Sat Sep 2 13:45:44 2017 +0200

    Add change-directory[*] to (chicken process-context) and fix find-files test

diff --git a/posix.scm b/posix.scm
index 8115bfd3..225da032 100644
--- a/posix.scm
+++ b/posix.scm
@@ -214,13 +214,14 @@
 (import chicken chicken.posix))
 
 (module chicken.process-context
-  (command-line-arguments argv get-environment-variable
+  (change-directory change-directory* current-directory
+   command-line-arguments argv get-environment-variable
    get-environment-variables set-environment-variable!
    unset-environment-variable! emergency-exit exit on-exit
-   executable-pathname program-name current-directory
-   set-root-directory! current-effective-group-id
-   current-effective-user-id current-group-id current-process-id
-   current-user-id parent-process-id current-user-name
-   current-effective-user-name create-session process-group-id
-   user-information)
+   executable-pathname program-name set-root-directory!
+   current-effective-group-id current-effective-user-id
+   current-group-id current-process-id current-user-id
+   parent-process-id current-user-name
+   current-effective-user-name create-session
+   process-group-id user-information)
 (import chicken chicken.posix))
diff --git a/tests/test-find-files.scm b/tests/test-find-files.scm
index 723e4720..32ce4572 100644
--- a/tests/test-find-files.scm
+++ b/tests/test-find-files.scm
@@ -24,7 +24,7 @@
             "find-files-test-dir/dir-link-target/foo"
             "find-files-test-dir/dir-link-target/bar"))
 
-(current-directory "find-files-test-dir")
+(change-directory "find-files-test-dir")
 
 (cond-expand
   ((and windows (not cygwin))		; Cannot handle symlinks
@@ -212,5 +212,5 @@
 
 (test-end "find-files")
 
-(current-directory "..")
+(change-directory "..")
 (delete-directory "find-files-test-dir" #t)