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

few more comments

Browse Source 
svn: r16776

original commit: d3b5d8f71efe641d1f4aa42558957c89309121fb
This commit is contained in:
Eli Barzilay 2009-11-15 08:03:27 +00:00
parent 3f158d67fd
commit 03dc493c41
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
collects/unstable/find.ss
View File

@ -54,7 +54,10 @@
(for/fold ([acc acc]) ([elem (in-list xs)]) (for/fold ([acc acc]) ([elem (in-list xs)])
(loop elem acc))) (loop elem acc)))
(reverse (loop x null))) (reverse (loop x null)))
;; Eli: This looks borderline too generic to be useful, also in the fact that
;; the documentation tends to explain things in terms of the implementation
;; (eg, the description of #:stop). In any case, you should definitely
;; rename it -- `find' is too common in different ways (see srfi-1 or cltl).
(define (find-first pred x (define (find-first pred x
#:stop [stop #f] #:stop [stop #f]
@ -67,3 +70,4 @@
(if (procedure? default) (if (procedure? default)
(default) (default)
default))) default)))
;; Eli: Note that this is documented "Like `find-first'".