Re: Proposal for search-input-file

[Ludovic Courtès]

Hi!

Liliana Marie Prikler <liliana.prikler@gmail.com> skribis:

> (define* (search-input-file* inputs predicate
>                              #:key (hint "<unknown>"))
>   "Find the first file in INPUTS matching PREDICATE.  The return value
> of PREDICATE is returned as-is, so patterns like 
>   (search-input-file* inputs
>     (lambda (parent)
>       (and (file-exists? (string-append parent \"/lib/foobar.so\"))
>            (string-append parent \"/lib\"))))
> work as expected.
>
> When PREDICATE returns no match, raise a search error using HINT for a
> file name."

This would be equivalent to:

  (dirname (search-input-file inputs "/lib/libfoo.so"))

right?

Another option would be a procedure that does precisely that: return the
parent.

Thoughts?

Ludo’.