~ chicken-core (chicken-5) 9aaea6281f9deaa77f427e6288242a859cf797a8

commit 9aaea6281f9deaa77f427e6288242a859cf797a8
Author:     Christian Kellermann <ckeen@pestilenz.org>
AuthorDate: Thu Sep 22 23:08:17 2011 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Thu Sep 22 23:08:17 2011 +0200

    Do not follow symlinks by default in find-files

diff --git a/posix-common.scm b/posix-common.scm
index 827e8a90..ea85d3da 100644
--- a/posix-common.scm
+++ b/posix-common.scm
@@ -422,7 +422,7 @@ EOF
                               (seed '())
                               (limit #f)
                               (dotfiles #f)
-                              (follow-symlinks #t))
+                              (follow-symlinks #f))
   (##sys#find-files dir test action seed limit follow-symlinks dotfiles 'find-files))