~ chicken-core (chicken-5) 16c2295ce35f22bb6e9b83e73ea08edc1b8c870e

commit 16c2295ce35f22bb6e9b83e73ea08edc1b8c870e
Author:     Peter Bex <peter.bex@xs4all.nl>
AuthorDate: Fri Oct 18 19:23:26 2013 +0200
Commit:     Peter Bex <peter.bex@xs4all.nl>
CommitDate: Fri Oct 18 19:23:26 2013 +0200

    Fix private-repository-test on non-cygwin Windows (broken by d5dbf637ea8ec8cf819852b644a2240b0c51398b).  Thanks to Rivo for reporting

diff --git a/tests/private-repository-test.scm b/tests/private-repository-test.scm
index 6a4f5c70..5db1a0f6 100644
--- a/tests/private-repository-test.scm
+++ b/tests/private-repository-test.scm
@@ -5,7 +5,7 @@
 
 (define read-symbolic-link*
   (cond-expand
-   ((and windows (not cygwin)) (lambda (x) x))
+   ((and windows (not cygwin)) (lambda (filename _) filename))
    (else read-symbolic-link)))
 
 (define repo (normalize-pathname (read-symbolic-link* (repository-path) #t)))