suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fixes PR10940

Browse Source
This commit is contained in:
Matthias Felleisen 2010-05-28 13:51:49 -04:00
parent 4f9db0e1dd
commit 4bcfbc0af2
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
collects/srfi/1/search.rkt
View File

@ -1,3 +1,5 @@
#lang scheme/base
;;; ;;;
;;; <search.ss> ---- List searching functions ;;; <search.ss> ---- List searching functions
;;; Time-stamp: <02/02/28 12:11:01 noel> ;;; Time-stamp: <02/02/28 12:11:01 noel>
@ -32,7 +34,7 @@
;; hold me liable for its use. Please send bug reports to shivers@ai.mit.edu. ;; hold me liable for its use. Please send bug reports to shivers@ai.mit.edu.
;; -Olin ;; -Olin
#lang scheme/base
(require srfi/optional (require srfi/optional
"predicate.ss" "predicate.ss"
@ -57,11 +59,15 @@
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;; ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(define (find pred list) (define (find pred list)
(cond ((find-tail pred list) => car) (check-arg procedure? pred 'find)
(cond ((find-tail-internal pred list) => car)
(else #f))) (else #f)))
(define (find-tail pred list) (define (find-tail pred list)
(check-arg procedure? pred 'find-tail) (check-arg procedure? pred 'find-tail)
(find-tail-internal pred list))
(define (find-tail-internal pred list)
(let lp ((list list)) (let lp ((list list))
(and (not (null-list? list)) (and (not (null-list? list))
(if (pred (car list)) list (if (pred (car list)) list