>From a03d5bdaebe91f35a5e71ca19aecc2feae958451 Mon Sep 17 00:00:00 2001 From: Christian Kellermann Date: Thu, 22 Sep 2011 09:57:26 +0200 Subject: [PATCH] Remove deprecated find-files variant. Deprecated since 4.6.0. --- posix-common.scm | 25 +++++++------------------ 1 files changed, 7 insertions(+), 18 deletions(-) diff --git a/posix-common.scm b/posix-common.scm index 4b4e217..827e8a9 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 -- 1.7.2.5