PS. I'm assuming that you're using `eq?` here in deliberate preference to 
`equal?`. Because `eq?` is not reliable for string comparisons.

> > #lang racket
> > (require rackunit)
> > (define (foo-3 x) (if (eq? x "foo") (list #t) empty))
> > (check-equal? (append-map foo-3 '(a b "foo" "bar")) '(#t))
> 
> 
> That was exactly what I wanted!  Thank you very much.  Also, I hadn't yet 
> discovered "append-map", so that's another thank you.

-- 
You received this message because you are subscribed to the Google Groups 
"Racket Users" group.
To unsubscribe from this group and stop receiving emails from it, send an email 
to [email protected].
For more options, visit https://groups.google.com/d/optout.

Reply via email to