diff options
Diffstat (limited to 'srfi/srfi-1.scm')
-rw-r--r-- | srfi/srfi-1.scm | 14 |
1 files changed, 0 insertions, 14 deletions
diff --git a/srfi/srfi-1.scm b/srfi/srfi-1.scm index 11ec3c2f2..aec63890f 100644 --- a/srfi/srfi-1.scm +++ b/srfi/srfi-1.scm @@ -578,20 +578,6 @@ ;;; Searching -(define (find pred clist) - (if (null? clist) - #f - (if (pred (car clist)) - (car clist) - (find pred (cdr clist))))) - -(define (find-tail pred clist) - (if (null? clist) - #f - (if (pred (car clist)) - clist - (find-tail pred (cdr clist))))) - (define (take-while pred ls) (cond ((null? ls) '()) ((not (pred (car ls))) '()) |