~ chicken-core (chicken-5) 8e64fc76e298c86fd241c3134107ad8d4cd24fba

commit 8e64fc76e298c86fd241c3134107ad8d4cd24fba
Author:     Christian Kellermann <ckeen@pestilenz.org>
AuthorDate: Thu Sep 22 09:57:26 2011 +0200
Commit:     Christian Kellermann <ckeen@pestilenz.org>
CommitDate: Thu Sep 22 22:52:46 2011 +0200

    Remove deprecated find-files variant. Deprecated since 4.6.0.

diff --git a/posix-common.scm b/posix-common.scm
index 4b4e2170..827e8a90 100644
--- a/posix-common.scm
+++ b/posix-common.scm
@@ -417,24 +417,13 @@ EOF
 		    ((pproc f) (loop rest (action f r)))
 		    (else (loop rest r)) ) ) ) ) ) ) )
 
-(define (find-files dir . args)
-  (cond ((or (null? args) (not (keyword? (car args))))
-	 ;; old signature - DEPRECATED
-	 (let-optionals args ((pred (lambda _ #t))
-			      (action (lambda (x y) (cons x y))) ; we want `cons' inlined
-			      (id '())
-			      (limit #f) )
-	   (##sys#find-files dir pred action id limit #t #f 'find-files)))
-	(else
-	 (apply 
-	  (lambda (#!key (test (lambda _ #t))
-			 (action (lambda (x y) (cons x y))) ; s.a.
-			 (seed '())
-			 (limit #f)
-			 (dotfiles #f)
-			 (follow-symlinks #t))
-	    (##sys#find-files dir test action seed limit follow-symlinks dotfiles 'find-files))
-	  args))))
+(define (find-files dir #!key (test (lambda _ #t))
+			      (action (lambda (x y) (cons x y)))
+                              (seed '())
+                              (limit #f)
+                              (dotfiles #f)
+                              (follow-symlinks #t))
+  (##sys#find-files dir test action seed limit follow-symlinks dotfiles 'find-files))
 
 
 ;;; umask