www

commit 03dc493c4111d98ce9611aa730a7e48eab4ae532
parent 3f158d67fdd56ddf6d34f95468a8ebd399a5f283
Author: Eli Barzilay <eli@racket-lang.org>
Date:   Sun, 15 Nov 2009 08:03:27 +0000

few more comments

svn: r16776

original commit: d3b5d8f71efe641d1f4aa42558957c89309121fb

Diffstat:
M
collects/unstable/find.ss
 | 
6
+++++-

1 file changed, 5 insertions(+), 1 deletion(-)
diff --git a/collects/unstable/find.ss b/collects/unstable/find.ss
@@ -54,7 +54,10 @@
     (for/fold ([acc acc]) ([elem (in-list xs)])
       (loop elem acc)))
   (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
                     #:stop [stop #f]
@@ -67,3 +70,4 @@
     (if (procedure? default)
         (default)
         default)))
+;; Eli: Note that this is documented "Like `find-first'".