diff options
author | Kevin Ryde <user42@zip.com.au> | 2005-03-13 22:49:28 +0000 |
---|---|---|
committer | Kevin Ryde <user42@zip.com.au> | 2005-03-13 22:49:28 +0000 |
commit | 5df2ac97e96d1ab8422d39034f8076a3e8741a3a (patch) | |
tree | c23becdfc338f27de15fef25aeaa3ac4a1efe6b7 /srfi/srfi-1.scm | |
parent | 68513144456f575409acb9c640347f7c954d6579 (diff) | |
download | guile-5df2ac97e96d1ab8422d39034f8076a3e8741a3a.tar.gz |
(find, find-tail): Rewrite in C.
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))) '()) |